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PRECIPITATION  VARIABILITY  IN  THE  U.S.A.  FOR 
MICROWAVE  TERRESTRIAL  SYSTEM  DESIGN 

* 

E . J . Dutton 

A FORTRAN  computer  program,  entitled  PRED77, 
has  been  prepared  to  predict  SHF  microwave  link 
degradation  due  to  rain-caused  attenuation  in  the 
United  States  of  America.  This  program,  which 
predicts  5,  50,  and  95  percent  confidence  levels 
of  rain-caused  attenuation,  is  similar  to  one 
developed  earlier  for  Europe.  Major  changes  are 
in  the  prediction  of  rain  rate  climatology. 

A telecommunications-oriented  rainfall  clima- 
tological index  is  developed  for  the  U.S.A. , and  19 
zones  of  similar  rainfall  characteristics  are  sub- 
sequently developed,  using  a 359-station  data  base. 
Contour  maps  of  important  input  parameters  that  can 
be  used  to  assess  rain  rate  and  its  variance  at  a 
location  via  numerical  methods  in  PRED77  are  pre- 
sented. These  numerical  methods  are  also  discussed, 
as  well  as  the  limitations  of  these  methods  for 
large  variances  of  the  input  parameters. 

As  in  earlier  work  for  Europe,  an  interpolation 
scheme  for  obtaining  otherwise  unknown  data  at  a 
location  from  the  359-station  data  base  is  included 
in  PRED77.  The  interpolation  error  created  by  this 
process  is  estimated,  and  the  pitfalls  of  the  whole 
estimation  procedure  by  interpolation  are  discussed 
The  interpolation  error  made  in  estimating  an  input 
variable  is  included  in  the  variance  estimation  of 
that  variable  where  feasible. 

The  mechanics  of  the  program  PRED77  are  dis- 
cussed, and  the  program  is  listed  and  flow  dia- 
grammed in  the  Appendices. 
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1.  INTRODUCTION  AND  BACKGROUND 

This  report  is  concerned  with  the  prediction  of  rain 
rates  in  the  United  States  of  America  for  communications 
purposes.  This  is  because  planning  and  engineering  of  new 
microwave  terrestrial  links  in  the  U.S.A.  requires  exten- 
sive pre-examination  of  their  potential  for  interference 
and  degradation.  This  is  a result  of  heavy  utilization  of 
the  SHF  spectrum,  causing  appreciable  demand  for  the  spectrum. 
Rainfall  is  known  to  have  significant  bandwidth  (Ma  and 
Dougherty,  1976) , attenuation  (Dutton,  1968) , phase  delay 
(Zuffery,  1972),  interference  (Hubbard,  et  al.,  1973),  and 
depolarization  (Thomas,  1971)  inpact  oi.  microwave  terrestrial 
links.  Thus  the  investigation  of  rainfall  parameters  as  they 
influence  the  performance  of  terrestrial  links  at  SHF  (and 
beyond)  in  the  United  States,  including  Alaska  and  Hawaii,  is 
essential  to  adequate  system  protection  design. 

Rainfall  is  the  topic  of  concern  in  this  report  because 
it  has  been  assvmed  that  standard  siting  procedures  have  been 
followed  in  designing  a terrestrial  link.  This  includes 
standard  adequate  combinations  of  antenna-tower  height,  and 
link  path  lengths  chosen  so  as  to  insure  that  the  individual 
link  propagation  paths  are  line  of  sight.  Further  it  has 
been  assumed  that  performance  degradation  due  to  terrain  and 
atmospheric  multipath  will  be  minimized,  where  necessary,  by 
the  standard  remedial  techniques  of  space  and/or  frequency 
diversity.  The  computer  program  PRED77,  described  in  Section  5, 
therefore,  treats  only  rainfall  effects  on  microwave  links 
operating  at  frequency  in  the  3 to  30  GHz  (SHF)  range.  The 
program  is  applicable  to  terrestrial  links  rather  than  air/ 
ground  or  satellite/ground  links,  and  is  further  applicable 
to  only  the  U.S.A. , including  Alaska  and  Hawaii.  The  program 
output  of  predicted  link  attenuation  and  its  5 and  95  percent 
confidence  limits  for  given  percents  of  a year  include  effects 
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of  oxygen  absorption,  water  vapor  absorption,  cloud  and 
rain  attenuation.  The  behavior  of  microwave  links  in  the 
presence  of  oxygen  and  water  vapor  absorption  at  SHF  is  not 
expected  to  be  an  area  of  concern,  because  the  effects  are 
minor  compared  to  those  of  rain,  and  they  are  much  more 
readily  predictable. 

Traditionally,  the  performance  of  microwave  links  in  the 

presence  of  inclement  weather  has  been  related  to  the  rain 

rate,  R^,  observed  at  the  earth's  surface  (Ryde,  1946,  Barsis 

et  al.,  1973).  The  rain  rate,  R^,  is  usually  distinguished  as 

a "point"  rain  rate.  The  conversion  of  R^  to  a "path  average" 

rain  rate  is  essential  in  the  prediction  of  path  performance. 

This  problem  is  not,  however,  the  immediate  concern  of  this 

report.  It,  and  the  subject  of  path  performance,  were  treated 

in  the  Office  of  Telecommunications  Technical  Memorandum, 

OTM  76-225,  (a  memorandum  of  limited  distribution)  entitled 

"Computer  Software  for  FWCS  Performance  Prediction  dated 

August,  1976.  Requests  for  information  on  this  document  should 

be  made  to  the  author  at  the  address  shown  on  page  1.  Therein 

is  described  a FORTRAN  computer  program  PREDIC,  which  incorporated 

subroutines  containing  specific  methodology  for  prediction  of 

R^.  This  rainrate  prediction  is  accomplished  by  estimating 

the  distribution  of  the  mean  rain  rate,  R , for  a given  location, 

2 ° 

and  the  variance,  Sp  , of  R^  at  the  percentile  on  the  distribution 
of  interest  (Dutton, °1977) . From  these,  the  5 and  95  percent 
confidence  bands  for  the  entire  distribution  are  obtainable, 

using  the  distributions  discussed  in  Section  3.2. 

_ 2 

A procedure  for  evaluation  of  R , and  S-  , as  developed 

o K 

in  Dutton  (1977)  and  Dutton  et  al.  (1974)  is  called  the 
"modified  R-H  model".  The  reason  for  this  nomenclature  is 
that  the  procedure  represents  a rather  extensive  modification 
of  the  original  Rice  and  Holmbera  (1973)  model  (R-H  model) — a 


modification  for  which  some  price  in  precision  has  had  to  be 
paid,  as  discussed  in  Section  3.1.  The  OTM  76-225,  mentioned 
above,  discusses  four  separate  procedures  whereby  the  output 
of  the  modified  R-H  model  (i.e.  subroutine  DELTT)  is  used  to 
predict  atmospheric  attenuation  and  its  5 and  95  percent  con- 
fidence limits  on  a European  microwave  link.  For  purposes  of 
this  report,  it  is  important  for  the  reader  to  note  at  this 
point  that  prediction  procedure  other  than  rain  rate  prediction 
is  assumed  basically  unchanged  (except  for  some  minor  modifi- 
cations described  in  Section  5.0)  from  the  European  development, 
when  applied  to  the  U.S.A.  Hence,  this  report  is  devoted  in 
its  entirety  to  improving  rain  rate  prediction  procedures  for 
the  U.S.A.  over  those  used  for  the  European  study. 

2.  COMMUNICATIONS-ORIENTED  CLIMATOLOGY  OF  THE  U.S.A. 

Since  the  turn  of  the  century  (Koppen,  1900;  Thornthvftite , 
1931)  , the  agrarian  influence  has  dominated  worldwide  climato- 
logical thinking  especially,  in  the  conterminous  U.S.A. 

It  has  been  amply  indicated  in  recent  years,  however  (CCIR, 

1972)  , that  telecommunications  has  its  own  set  of  climatolo- 
gical needs,  not  necessarily  compatible  with  those  of  other 
areas  of  interest  such  as  agriculture.  For  this  reason,  it 
was  felt  that  climates  in  the  U.S.A.  should  be  categorized 
from  a telecommunications  point  of  view,  rather  than  from  the 
traditional,  agricultural  standpoint,  as  had  been  done  pre- 
viously for  Europe  (Dutton  et  al.,  1974).  A natural  starting 
point  for  this  reclassification  seemed  to  be  the  R-H  and 
modified  R-H  models  for  rain  rate  prediction.  This  was 
because  they  represent  models  of  a meteorological  parameter, 
rain  rate,  that  were  developed  strictly  for  telecommunications 
applications . 


As  used  here  and  thereafter,  the  "U.S.A"  includes  Alaska  and 
Hawaii;  the  "conterminous  U.S.A."  does  not. 


Two  important  parameters  in  the  R-H  or  the  modified  R-H 
model  are  M,  the  average  annual  precipitation  at  a location 
of  interest,  and  3 , the  ratio  of  the  precipitation  associated 

with  thunderstorms  to  the  total  precipitation  of  an  average 

* 

year  . Thornthwaite  (1931)  defined  what  is  known  as  the  "P-E 
Index"  for  specific  use  in  the  rainfall  climatological  charac- 
terization of  the  conterminous  U.S.A.  for  agriculture  purposes. 
This  index,  which  is  directly  related  to  the  precipitation  to 
evaporation  ratio  of  a given  location,  is  capable  of  giving  a 
macroscale  (or  large-scale)  estimate  of  climatic  behavior.  In 
analogy  with  the  "P-E  index,"  therefore,  it  was  decided  to  use 
an  "M/3  Index,"  the  ratio  of  M to  3 , to  estimate  macroscale 
rainfall  climatological  behavior  for  telecommunications  purposes. 
This  is  because  the  two  main  elements  of  rainstorms — stratiform 
and  convective  storms — that  affect  microwave  telecommunications 
are  described  by  the  parameters  and  3.  Hence,  roughly,  a 
large  M/3  indicates  a climate  with  mostly  stratiform  tendencies, 
whereas  a small  M/3  indicates  a climate  with  mostly  convective 
tendencies.  Figure  1 shows  the  boundaries  of  the  19  rainfall 
zones  of  approximately  constant  M/3  that  resulted  from  the 
M/3  index  determined  from  the  305  first-order  U.S.  Weather  Service 
observing  stations  (NOAA,  1975) . The  locations  of  the  stations 
used  for  the  data  analysis  in  this  report  are  shown  in  figure  2. 

It  should  be  recognized  that  a simple  ratio  such  as  M/3, 
although  it  relies  strictly  on  telecommunications-oriented  para- 
meters, can  still  only  serve  as  a guide  rather  than  an  absolute, 
in  drawing  boundaries  such  as  in  figure  1.  Otherwise,  nineteen 
such  zones  would  have  never  resulted.  The  unique  climatological 
features  of  one  part  of  the  U.S.A.  as  opposed  to  another  part 
must  be  taken  into  account,  even  though  both  parts  might  have 
similar  M/g  values.  Hence,  older  climatological  characterizations 
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Note  that  g is  a parameter  derived  from  other  input  data, 
as  discussed  in  Dutton  (1977) . 
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of  the  U.S.A.  are  not  without  virtue,  and  must,  still  be 
included. 

Figure  2,  as  mentioned,  shows  the  location  of  the  prin- 
cipal data  points  used  in  the  analysis  in  this  report.  To  the 
author's  knowledge,  no  greater  variety  and  extent  of  meteoro- 
logical data  are  taken  anywhere  in  the  world  than  at  these 
305  stations.  In  many  cases  worldwide,  considerably  less 
data  are  available.  The  R-H  and  modified  R-H  models,  as  dis- 
cussed in  Dutton  (1977) , require  four  quantities  at  a given 
(U.S.A.)  location  as  basic  input.  These  quantities  are  M;  M^, 
the  greatest  monthly  precipitation  in  30  years;  D,  the  average 
annual  number  of  days  with  precipitation  ^0.25  mm;  and  U,  the 
average  annual  number  of  days  with  thunderstorms.  These  are 
available  at  the  305  first-order  U.  S.  VJeather  Service  (U.S.W.S.) 
stations  (NOAA,  1975)  . Additional  locations  (with  only  som.e 
of  the  four  input  quantities  available)  of  importance  to  U.S. 
Army  communications  users,  are  shown  in  figure  3.  Therein  are 
represented  54  U.S.  Army  Airfield  (AAF)  meteorological  data 
recording  sites,  as  reported  by  the  U.S.  Naval  Weather  Service 
(USNWS,  1969-70) . Values  of  M and  U are  recorded  at  these 
sites,  but  it  was  necessary  to  estimate  D and  via  the  contour 
maps  discussed  next.  'The  thunderstorm  ratio,  6,  can  be  obtained 
from  these  other  input  variables  via 
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where 


= 0.03  + 0.97  exp  [-5  exp (-0 . 004Mj^)  ] 


(1) 


(2) 


The  data  from  the  305  first-order  U.S.W.S.  stations  were 
used  to  draw  contour  maps  of  M,  g,  D,  U,  and  for  the  U.S.A. 
A contour  map  for  each  parameter  is  shown,  respectively,  in 
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Location  of  305  first-order  U.S.  Weather  Service  Stations  in  the  U.S.A 


Location  of  54  U.S.  Army  Air  Fields  with  extensive  meteorological 
data  records  In  the  U.S. A. 
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figures  4 through  8.  The  values  of  D,  and  for  the  54  AAF's 

were  obtained  from  figures  6 and  8,  respectively,  by  linearly  \ 

interpolating  between  contours  at  each  individual  AAF  location.  I 

i 

There  are  errors  introduced  by  the  use  of  such  "data,"  and  they  j 

must  be  estimated  by  techniques  such  as  the  rms  interpolation  ! 

error  analysis  of  subroutine  IDBVIP,  discussed  in  Section  4.  j 

The  attenuation  prediction  procedure  and  associated  com- 
puter software  PRED77,  discussed  in  Section  5,  include  clear- 
air,  as  well  as  rainfall,  attenuation  prediction.  This  prediction  i 

requires  knowledge  of  the  station  mean  annual  surface  tempera- 
ture, pressure,  and  relative  humidity.  These  values  can  be 
readily  estimated  from  recorded  means  at  the  305  first-order  ■ 

U.S.W.S.  stations,  and  at  the  54  AAF's.  These  values  constitute  i 

part  of  the  data  in  subroutine  TABLES  (see  listing  in  Appendix  , 

B)  . ■ 

3.  METHODS  OF  RAIN  RATE  ANALYSIS 

In  the  introduction,  we  briefly  mentioned  the  original  R-H 

model  and  the  modified  R-H  model.  At  that  point,  we  also  intro- 

2 

duced  the  rain-rate  variance,  Sj^  , about  the  mean  predicted 
rain  rate,  R^,  for  some  fixed  percentile  on  the  original  or  modi- 
fied R-H  model  distributions.  These  concepts  and  models  are 
chronicled  in  detail  elsewhere  (Dutton  et  al. , 1974;  Dutton,  1977). 

The  purpose,  then,  of  the  following  subsections  will  be  to  dis- 
j cuss  the  results  of  further  extensions  and  hopeful  improvements 

i 

I in  the  modeling  technique  that  have  occurred  since  the  earlier  ^ 

I publications,  without  extensive  reiteration  of  the  earlier  work. 


3.1  Rain  Rate  Determination  from  the  Original  R-H  model 

The  original  R-H  model  (Rice  and  Holmberg,  1973)  expresses 

the  percent  of  time,  P(R  ),  that  a one-minute  (or  "instanta- 

— * 
eous")  mean  rain  rate-,  R^,  is  exceeded  during  a year  . 

This  is  expressed  mathematically  as 

K 

This  is  the  same  as  the  rain  rate  exceeded  during  an  average 
year. 

10 


Figure  4.  30-year  mean  annual  precipitation  M,  in  millimeters,  for 
the  U.S.A. 


P(R^)  = kTj^j^exp(-R^/Rj^j^)  + .35kT2j^exp(-.453074RQ/R2]^) 

+ .65kT2j^exp(-2.857143R^/R2i^  • 


(3) 


^11'  *^21'  *^11'  '^21  functions  of  M,  D,  and 


In  (3), 

U (Rice  and  Holmberg,  1973),  and  k=0. 01141,  a conversion  from 
hours/year  to  percent  of  a year.  The  first  subscript  on  these 
parameters  represents  rain  type;  i.e.  thunderstorm  rain  (1) 
and  non-thunderstorm  rain  (2) . The  second  subscript  represents 
one-minute  rain  rate  values.  The  modified  R-H  model  relates 
P(R^)  and  R^  by  (Dutton,  1977) 


kTj^j^exp(-R^/Rj^j^)  , 


R^>30  mm/hr 


P(R„)  = ^ kTg^exp(-VR^/ 


Rg^)  , 5 mm/hr5R^30  mm/hr 


— o— 


(4) 


k(T^j^+T2j^)  6xp(-Rq/R£),  Rq<5  mm/hr. 


In  (4),  3nd  r£  can  be  related  to  previously  defined 

parameters  as  discussed  in  Dutton,  et  al.  (1974) . It  is  clear 
that  the  modified  R-H  model  (4)  is  readily  solved  for  R^, 
whereas  the  original  R-H  model  is  not  so  accommodating. 

However,  it  should  be  remembered  that  the  modified  R-H  model  is 
a simplified  fit  to  the  original  R-H  model  and,  as  such,  intro- 
duces deviations  from  the  original  R-H  model.  Since  it  is  the 
original  R-H  model  that  was  fit  to  data,  it  would  seem  prudent 
not  to  depart  too  far  from  the  original  R-H  model,  if  possible. 
Yet  there  are  instances,  especially  in  the  5 mm/hr  to  30  mm/hr 

region,  where  there  are  departures  as  high  as  8 mm/hr.  Such 

« 

values  could  produce  noticeable  differences  in  predicted  atten- 
uations. 

Therefore,  it  appears  to  still  be  desirable  to  solve  the 
original  R-H  model  for  R^,  given  P(R^).  This  is  facilitated 
for  computer  purposes  by  using  Newton's  (Newton-Raphson ' s) 
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method  (Sokolnikof f and  Sokolnikoff,  1941;  Dahlquist  et  al., 

1974).  For  any  given  rain  rate,  R,  we  can  define  an  f(R)  such 
that 

f(R)  = PCRq)  -g(R)  , (5) 

where  g(R)  is  the  right-hand  side  of  equation  (3)  when  R is 

substituted  for  R_.  Furthermore 

o 

R = R^ 

is  the  only  root  of  f(R),  because  (5)  is  a single-valued,  con- 
tinuous function.  We  can  therefore  use  Newton's  method  to  obtain 
any  degree  of  accuracy  desired  (Sokolnikoff  and  Sokolnikoff,  1941) 
Hence,  having  chosen  an  appropriate  first  estimate  of  R^,  R^^ , the 
iterative  Newton's  procedure  can  be  followed  until 

lim  R = R^  , (6) 

n o 

n-+-oo 

where  R is  the  estimate  of  R after  n iterations.  The  modified 
n o 

R-H  model,  (4),  should  be  a good  procedure  to  use  to  obtain  R^^ . 
This  is  because  it  is  a model  that  has  been  fit  to  (3) . It  has 
been  found  for  a few  sample  test  cases  that  if  this  procedure 
is  followed  for  obtaining  Rj^,  no  more  than  n=ll  iterations 
are  needed  to  get  R^  accurate  to  7 decimal  places.  However, 
to  be  on  the  safe  side,  we  have  allowed  for  25  iterations  in 
subroutine  MODRH  (described  in  Section  5)  to  obtain  R^. 

3.2  Other  Rain-Rate  Analysis  Modifications 

2 2 

Values  of  the  variances  about  M,  about  D,  Sj^,  and 

about  U,  Sy,  have  been  obtained  zonally.  The  methodology 

and  rationale  for  obtaining  these  zonal  constants,  and  their 

2 

use  in  estimating  the  variance  about  6,  S„,  and  the  variance 

— 2 — ^ 

about  R , S„  , at  a given  percentile,  P(R  ),  on  the  distribu- 


tion  (1)  are  described  in  Dutton  (1977)  . Table  1 shows  the  ' 

zonal  mean  of  M,  M ; of  D,  D ; and  of  U,  U , and  the  corres- 

^2^2  2 ^ 

ponding  zonal  variances  S^/  S^,  and  S^,  for  the  19  U.S.A. 
rainfall  zones  shown  in  figure  1.  The  methodology  described 
in  Dutton  (1977)  for  rainfall  variance  analysis  uses  an  approxi- 
mation that  essentially  requires  that  the  standard  deviation 
of  an  input  parameter  should  be  small  with  respect  to  its  mean 
value.  This  requirement  must  also  be  met  if  a normal  distribu- 
tion is  to  be  used  as  the  approximate  assumed  population  dis- 
tribution of  any  of  the  parameters  M,  D,  and  U,  since  all  three 
represent  means  of  values  that  are  non-negative. 

From  a theoretical  standpoint,  both  the  Dutton  (1977)  rain 

rate  variance  formulations  and  the  assumed  normality  of  the 

2 2 2 

distribution  from  which  Sj^,  and  are  chosen,  the  ratios 

Sm/M^  (or  Sj^/M)  , Sjj/D^  (or  S^/D)  , and  S^/U^  (or  S^/U)  should 

probably  be  1/3  or  less.  It  is  apparent  from  table  1 that  while 

58  percent  are  indeed  £l/3,  18  percent  lie  between  1/3  and  1/2 

and  24  percent  are  >1/2.  The  largest  ratio  is  in  zone  16,  where 

— / 

S/M2=0.776.  As  the  ratios  become  progressively  larger  than  1/3, 
the  Dutton  (1977)  rain-rate  variance  formulations  (being  derived 
from  the  first-order  terms  of  a complicated,  multivariable  Taylor 
series)  become  theoretically  progressively  larger  underestimates 
of  rain-rate  variance.  The  comparisons  of  data  with  the  Dutton 
(1977)  formulations,  which  were  made  in  that  report,  however, 
indicate,  at  least  for  that  small  data  base,  that  the  formulations 
are  realistic. 

To  avoid  concern  about  the  use  of  a normal  distribution  in 
the  region  where  the  aforementioned  ratios  are  >1/3,  a truncated- 
normal  distribution  (truncated  below  zero)  has  been  used.  The 
assumption  was  made  in  Dutton  (1977)  that  a normal  distribution 
of  M,  D,  and  U implies  a normal  distribution  of  rain  rate,  R^. 

It  has  now  been  further  assumed  that  a truncated  (or  more  pro- 
perly doubly-truncated  at  0 and  365  for  D and  U)  normal  distribu- 
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tion  of  M,  D,  and  U implies  a truncated  normal  distribution  of 
(again  truncated  below  Rq=0) . Before  proceeding  further, 
however,  we  must  answer  the  question:  why  are  we  using  the 
truncated-normal  distribution?  It  is  clear  that  M,  D,  U,  and 
are  all  non-negative  quantities,  so  that,  in  point  of  fact, 
it  is  the  normal  distribution  that  should  theoretically  never 
be  used,  since  it  permits  negative  values.  However,  for  the 
ratio  of  the  standard  deviation  to  the  mean  less  than  1/3, 
more  than  99.87  percent  of  the  distribution  values  are  non- 
negative. This  fact,  coupled  with  the  widespread  usage  and 
tabulation  of  the  normal  distribution,  make  it  a convenient 
distribution  to  use.  Nevertheless,  whenever  the  afore- 
mentioned ratios  are  greater  than  1/3,  the  normal  distribution 
begins  to  allow  too  much  probability  of  negative  values  of  M, 

D,  U,  and  R^.  It  is  therefore  necessary  to  use  one  of  many 
possible  non-negative  distribution  functions  to  represent  the 
distribution  of  these  parameters.  The  choice  of  the  truncated- 
normal  distribution  was  made  because  a)  it  represents  a logical 
extension  of  the  otherwise-used  normal  distribution  for  positive 
values  only,  and  b)  it  has  a non-zero  probability  of  M=D=U=R^=0, 
a clearly  feasible  result  that  some  other  distributions  such  as 
the  gamma  or  Rayleigh  distributions  do  not  have.  The  drawback 
to  the  truncated-normal  distribution  is  that  it  is  more  diffi- 
cult to  manipulate  mathematically  than  distributions  such  as  the 
gamma  or  Rayleigh  distributions. 

4.  INTERPOLATION  ERROR  PROPAGATION 
A large  physical  segment  of  the  program  PRED77,  discussed 
in  Section  5,  is  devoted  to  an  interpolation  procedure  entitled 
subroutine  "IDBVIP"  (Akima,  1975) . Some  minor  modifications  of 
software  procedure  were  necessary  in  order  to  use  IDBVIP  for 
U.S.A.-data  as  opposed  to  European  data.  Also,  the  mean-square 
interpolation  error  (MSIE)  was  obtained  for  the  U.S.A.  for  the 


1 


input  parameters  M,  D,  and 


as  s: 


sL'  sL- 


Me' 

In  these  three  cases, 
variance  can  be  asstimed  to 


U , and  are , 

as  was  done 
be 


respectively,  denoted 
for  Europe,  the  total 


and 


+ S 

+ S 
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Me  ' 
2 

De  ' 
2 

Ue  ' 


(7) 

(8) 
(9) 


provided  the  spatial-temporal  caused  deviations  and  the  inter- 
polation error  are  uncorrelated. 

A specific  set  of  boundaries  is  needed  for  optimum  use  of 

IDBVIP,  which  necessitated  dividing  the  U.S.A.  into  three  separate 

* 

areas  — the  conterminous  U.S.A. , Alaska,  and  Hawaii — for  computer 
interpolation  purposes.  Incidentally,  it  should  be  recognized 
that  the  purpose  of  the  contour  maps,  figures  4 through  8,  is 
interpolation,  and  for  that  matter,  could  be  used  to  avoid  com- 
puter interpolation  altogether.  However,  in  so  doing,  the  map 
user  sacrifices  a quantitative  estimate  of  the  error  made  by 
such  a procedure,  and  the  propagation  of  that  error.  If  the 
user  retains  the  computer  interpolation,  then  the  only  input 
variables  required  are  estimates  of  location  co-ordinates,  sta- 
tion elevation,  operating  carrier  frequency,  and  path  length. 

Table  2 shows  the  estimated  values  of  S„  , S_  , and  S„  for 
the  19  U.S.A.  rainfall  zones.  Also  included  in  table  2 are  values 
for  Oj^,  Op,  and  o^,  which  result  when  table  1 is  combined  with 
the  interpolation  errors  via  (7) , (8) , and  (9) . Consequently, 
if  the  user  wishes  to  retain  the  computer  interpolation  procedure. 


Note,  not  zones  as  defined  earlier. 
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'I  Table  2 

Root-Mean-Square  Interpolation  Errors  and  Resultant 
Variances  using  data  of  Table  1. 


s,. 

Me 

®De 

^Ue 

Zone 

(im/yr) 

(days/yr) 

(days/yr) 

(jiun/yr) 

(days/yr) 

(days/yr) 

1 

133.8 

6.7 

11.9 

350.9 

25.1 

21.5 

2 

164.6 

6.5 

8.7 

324.7 

16.2 

16.7 

3 

201.2 

14.3 

6.8 

293.1 

19.1 

9.6 

4 

62.9 

4.2 

4.3 

223.9 

19.6 

10.1 

5 

285.7 

29.9 

4.9 

424.7 

38.6 

12.8 

6 

99.7 

9.2 

4.6 

195.4 

23.6 

9.6 

7 

66.1 

8.4 

5.1 

255.2 

18.1 

11.6 

8 

152.3 

7.3 

7.9 

294.3 

19.6 

12.6 

9 

232.6 

39.3 

5.9 

250.1 

44.0 

11.1 

10 

281.0 

39.2 

17.7 

363.3 

43.0 

21.4 

11 

340.5 

27.5 

14.1 

360.4 

32.4 

19.3 

12 

273.2 

15.0 

11.3 

301.0 

21.7 

17.4 

13 

1069.8 

55.6 

2.7 

1149.8 

63.4 

5.7 

14 

116.2 

13.5 

1.3 

172.0 

16.9 

2.7 

15 

718.5 

32.5 

1.9 

940.2 

57.9 

3.8 

16 

599.5 

120.8 

1.6 

1180.2 

129.0 

2.2 

17 

354.6 

43.3 

3.2 

378.9 

50.3 

4.3 

18 

736.0 

54.3 

2.4 

770.8 

59.0 

4.8 

19 

2514.3 

199.9 

5.9 

2764.8 

204.1 

7.7 
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he  or  she  finds  from  tables  1 and  2 that  the  ratios  o_/D„, 

and  are  considerably  larger  than  the  corresponding  ratios 

Sm/Mz*  Sy/Dgr  and  S^/Uz  discussed  in  the  preceding  section. 

It  is  found  that  the  ratios  with  interpolation  error  included 
are  such  that  now  only  35  percent  are  £1/3,  18  percent  lie 
between  1/3  and  1/2,  and  47  percent  are  ^1/2.  Indeed  several 
ratios  even  exceed  unity.  At  this  point,  the  user  is  reminded  i 

that,  if  he  or  she  has  known  data  at  a site,  interpolation  error  | 

is  not  to  be  included  on  those  data.  However,  when  using  the  j 

IDBVIP  interpolation  procedure,  it  is  best  to  be  circumspect  i 

about  its  application  in  those  zones  where  the  aforementioned  i 

ratios  exceed  1/3.  In  these  cases,  the  user  is  advised  to  use 
the  contour  maps  of  figures  4 through  8 instead  of  computer 
interpolation.  i 

Two  such  zones  are  in  Hawaii,  where  the  data  base  is  so 
small  (2  points  in  each  zone)  that  large  interpolation  errors 
are  not  too  surprising.  The  Hawaiian  land  mass  is  so  small, 
yet  so  mountainous,  that  orographic  effects  make  the  rainfall 
climate  highly  variable.  Smooth  interpolations,  such  as  pro- 
vided by  IDBVIP,  cannot  be  expected  to  do  a very  good  job  as 
a result.  Nor  do  contour  maps  do  any  better!  This  is  why  no 
contouring  has  been  included  for  Hawaii  in  figures  4 to  8 . 

Instead,  the  data  base  values  have  been  given.  Other  zones 
in  the  U.S.A.  that  have  high  ratios  are  in  Alaska  and  the  West. 
Interpolation  errors  are  probably  higher  in  these  zones  because 
the  density  of  data  stations  is  generally  lower  than  in  other 
zones.  It  is  felt  (albeit,  strictly  intuitively)  that  contour 
map  estimates  will  provide  superior  results  in  these  high-error 
areas.  Zones  of  greatest  concern  are  numbers  11,  12,  13,  16, 

17,  18,  and  19. 

As  well  as  the  three  variables,  M,  D,  and  U,  the  input 
variable  would  also  have  an  interpolation  error,  but  it 
has  been  decided  not  to  use  the  interpolation  error  for  an 

interpolated  because  the  values  are  so  large  as  to  produce  [ 

\ J 

S 

i i 

1 ; 


i 


meaningless  results  in  the  variance  of  B.  It  is  not  entirely 

clear  why  this  is  so,  but  a possible  reason  lies  in  the  inherent 

difference  between  M and  the  other  input  variables.  First  M 

m m 

is  a maximum  value,  whereas  M,  D,  and  U,  are  mean  values  for  a 

30-year  period.  Second,  is  a monthly  value,  whereas  M,  D, 

and  U are  annual  values.  The  only  need  for  the  interpolation 

2 

error  would  be  in  evaluating  the  zonal  MSIE  of  B,  Sg  , which, 

2 

when  added  to  the  zonal  variance  S-,  would  produce  the  resultant 

2 ^ 

zonal  variance,  o , analogous  to  (7),  (8),  and  (9).  Thus,  a 

p 2 

way  has  been  devised  to  obtain  0g,  without  evaluating  the 
interpolation  error  on 

In  Section  2,  it  was  implied  that  the  ratio  M/B,  was 
essentially  constant  (to  first  order  approximation)  within  a 
zone — that  being  the  way  zones  were  defined.  Hence,  we  can 
say,  for  any  particular  B and  M in  a zone. 


|=C  , (8) 


where  C is  a zone-wide  constant.  Therefore,  assuming  that  this 
relation  will  hold  for  interpolated  (estimated)  values  of  M and 
B as  well,  it  is  not  difficult  to  show  (Crow  et  al.,  1960)  that 


S 


2 

Be 


2 2 
^ ®Me 


(9) 


2 

Thus  a a IS  obtained  in  PRED77,  and  unwarrantedly  high  values 

p 

resulting  from  interpolation  error  on  have  been  circumvented. 


5.  PROGRAM  PRED77,  THE  U.S.A.  VERSION  OF  PROGRAM  PREDIC 
The  FORTRAN  program  package  PRED77  consists  of  basically 
two  parts:  an  attenuation  prediction  procedure,  and  a rain-rate 
and  associated  variance  prediction  procedure.  AS  mentioned  in 
Section  1,  the  major  changes  have  been  made  in  the  rain-rate 
prediction  procedure.  It  is  the  purpose  of  this  Section  to  des- 
cribe the  software  format  of  these  changes.  A listing  of  PRED77 
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with  these  changes  incorporated  is  given  in  Appendix  A,  and  a 
basic  flow  diagram  of  PRED77  is  given  in  Appendix  B. 

Some  minor  changes  to  the  attenuation  prediction  procedure  j 

will  be  described  first.  We  shall  include  the  input  data  for-  j 

matting  changes  as  part  of  these  minor  changes,  so  that  com-  f 

puter  input  requirements  for  the  user  are  now  as  follows.  The  1 

first  input  data  card  is  an  identifier  card  which  uses  all  80  | 

columns  of  the  card.  The  second  card  contains  only  site  data; 
i.e.,  the  latitude  and  longitude  of  the  site  of  interest,  the  ' 

elevation  of  the  site,  and  the  frequency  and  distance  of  the  link  f 

involving  the  site.  These  data  are  read  in  each  as  FIO.O  format, 
starting  in  column  1,  and  punched  in  the  order  stated  above. 

The  third  input  data  card  contains  only  meteorological  data 
for  the  station,  and  is  inputted  as  follows.  The  first  piece 
of  data  is  an  integer  variable  IZONE,  the  zone  in  figure  1 that 
contains  the  station.  At  this  point,  the  user  should  note  that 
this  is  the  last  piece  of  input  data  which  need  be  specified. 

The  interpolation  routine  IDBVIP,  discussed  in  Section  4,  can 
now  be  used  to  find  subsequent  unknown  input  data,  if  necessary. 

All  data  prior  to,  and  including,  IZONE,  however,  must  be  speci- 
fied on  the  input  cards,  or  program  execution  will  fail.  IZONE 
is  read  in  as  an  12  format.  The  remainder  of  the  input  data; 
namely,  the  pressure,  P;  the  temperature,  T;  the  relative 
humidity,  H;  the  average  annual  precipitation,  M;  the  average 
number  of  days  with  precipitation  greater  than  .25  mm,  D;  the 
average  number  of  thunderstorm  days,  U;  and,  finally,  the 
greatest  monthly  precipitation  recorded  in  30  years,  are  each 

read  in  on  an  FIO.O  format.  Data  is  punched  beginning  in  column 
11  of  the  third  card  for  any  of  these  input  data  that  are  known. 

For  those  that  are  not  known  (unspecified) , the  appropriate 
space  on  the  input  data  card  is  left  blank. 

Another  change  in  the  attenuation  prediction  procedure 
involves  the  determination  of  the  distribution  of  attenuation 
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by  using  a truncated  normal  distribution,  as  discussed  in 
section  3.2.  This  is  done  physically  in  subroutine  TRUNCN. 
Subroutine  TRUNCN  has  two  satellite  subroutines:  ERF  and 
ERFCI.  ERF  contains  a numerical  analysis  procedure  (Hasting., 
1955)  for  evaluating  the  error  function  and  its  complement. 

In  ERFCI,  a Newton-Raphson  iteration  is  used  to  find  the 
inverse  of  the  complementary  error  function.  This  result  is 
then  returned  to  TRUNCN,  where  the  actual  evaluation  of  the 
attenuation  distribution  takes  place. 

PRED77  interfaces  with  three  main  subroutines  in  the  rain 
rate  prediction  procedure.  These  subroutines  are  TABLUS, 

VARNCE,  and  DELTUS.  TABLUS,  after  checking  to  see  if  the 
IDBVIP  interpolation  procedure  is  to  be  used,  determines  which 
of  the  values  of  the  U.S.A.  data  sample  are  appropriate  for 
use  in  that  interpolation.  TABLUS  uses  three  satellite  sub- 
routines: TRIPART,  CLSPT  and  SORT.  TABLUS  is,  of  course,  also 
the  interface  to  the  interpolation  subroutine  IDBVIP.  TABLUS 
first  checks  to  see  if  all  of  the  input  data  are  specified.  If 
all  input  data  are  specified,  control  is  passed  back  to  PRED77 
with  certain  flags  set  so  that  the  rms  interpolation  error  (see 
section  4.0)  is  not  included  in  the  variance  analysis.  If  some 
of  the  optional  input  is  unspecified,  interpolation  is  under- 
taken by  calling  TRIPART.  The  subroutine  TRIPART  partitions  the 
entire  U.S.A.  into  three  areas;  a)  the  conterminous  U.S.A. , b) 
the  state  of  Hawaii,  and  c)  the  state  of  Alaska.  TRIPART  then 
determines  within  which  of  these  three  areas  the  location  re- 
quiring data  interpolation  is  contained.  The  nvimber  of  data 
points  used  for  the  interpolation  is  dependent  upon  which  of 
the  three  areas  is  used.  For  example,  in  Hawaii,  only  four  data 
points  exist.  Thus  only  four  data  points  can  be  used  in  the 
interpolation.  However,  in  Alaska  and  the  conterminous  U.S.A. 
there  exist  26  and  329  data  points,  respectively  (including 
AAF's).  In  these  areas  only  the  closest  20  data  points  are  used 


for  the  interpolation.  The  number  20  was  obtained  from  the  fact 
that  use  of  more  than  20  data  points  did  not  appear  to  appreciably 
further  minimize  the  rms  interpolation  error.  Furthermore,  fewer 
than  20  data  points  should  not  be  used  (when  possible)  to  assure 
a statistically  meaningful  sample  size  (Crow  et  al.,  1960). 
Clearly,  in  Hawaii  more  data  points  are  needed  for  truly  mean- 
ingful interpolation.  A greater  density  of  data  points  everywhere 
would  also  improve  interpolation  error  prediction.  The  current 
interpolation,  as  discussed  in  Section  4,  is  often  poor,  but  does 
provide  quantitative  interpolation  error  estimation.  The  pre- 
sent total  U.S.A.  data  sample  is  located  in  an  enormous  array 
entitled  BLOCK  DATA  TABLES.  It  is  partitioned  into  the  afore- 
mentioned three  sets  of  data  where  station  numbers  1 to  329  are 
in  the  conterminous  U.S.A. , station  numbers  330  to  355  are  in 
the  state  of  Alaska,  and  station  numbers  356  to  359  are  in  the 
state  of  Hawaii. 

After  the  area  in  which  the  interpolation  is  to  be  per- 
formed has  been  found,  the  geometrically  closest  20  data  points 
(except  in  Hawaii)  are  found  in  subroutine  SORT.  Control  is 
then  passed  to  subroutine  CLSPT,  where  the  coordinates  of  the 
data  points  with  respect  to  the  desired  location  are  tested  to 
see  if  they  both  lie  within  0.1  degree  of  the  desired  location. 

If  a data  point  location  does  satisfy  this  criterion,  the  data 
for  that  location  are  substituted  in  directly  as  the  desired 
location's  values.  Thus,  no  rms  interpolation  error  is  included 
in  this  special  case.  Control  is  now  passed  back  to  TRIPART, 
which  passes  control  immediately  back  to  TABLUS.  The  user  is 
reminded  at  this  point  that  schematic  sequencing  of  this  pro- 
cedure and  all  computer  control  procedures  described  herein  are 
shown  in  the  flow  diagram  of  Appendix  B.  The  user  is  referred 
there  if  he  or  she  wishes  to  know  the  exact  logic  followed  by 
the  computer. 
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While  still  in  TABLUS,  the  optional  input  data,  P,  T,  H, 

M,  D,  U,  and  are  now  tested  to  see  whether  they  were  specified 
or  not.  If  a value  is  specified,  it  is  given  priority,  retained, 
and  used  throughout  PRED77.  If  a value  is  unspecified,  the 
interpolated  substitute  is  to  be  retained  by  means  of  setting 
an  appropriate  flag  in  TABLUS.  For  P,  T,  and  H,  no  rms  inter- 
polation error  is  included.  Subroutine  IDBVIP  is  now  called 
to  obtain  those  interpolated  input  data  needed  at  a given 
desired  location. 

Control  is  now  passed  to  the  main  program  PRED77,  from 

whence  it  is  passed  to  subroutine  VARNCE.  Subroutine  VARNCE 

2 2 2 

determines  the  zonal  variances  and  for  the  resultant 

interpolated  or  specified  input  data  M,  D,  and  U,  respectively, 
by  using  a block  data  statement  of  the  zonal  variances  entitled 
BLOCK  DATA  RMSVAR.  The  variance  is  composed  of  two  parts,  a 
spatial-temporal  variance  and  the  mean-square  interpolation 
error  (see  section  4).  VARNCE  checks  the  flags  set  in  TABLUS, 
as  discussed  above,  and  adds  or  omits  the  mean-square  inter- 
polation on  error  accordingly.  Control  is  then  passed  back  to 
the  main  program  PRED77,  whence  control  is  passed  to  subroutine 
DELTUS.  Subroutine  DELTUS  is  a major  subroutine  that  incor- 
porates the  procedures  from  the  subroutine  DELTT  of  the  European 
prediction  program  PREDIC  plus  modifications  for  the  U.S.A.,  as 
discussed  in  detail  in  Section  3.  DELTUS  has  three  satellite 
subroutines:  PARAM,  MODRH,  and  FIT.  PARAM  gets  the  needed  inter- 

mediate parameters  used  in  the  R-H  and  modified  R-H  models  and 
required  for  use  in  DELTUS  and  MODRH.  MODRH  determines  the  rain 
rate,  as  discussed  in  subsection  3.1,  by  means  of  Newton's 
method.  DELTUS  then  determines  the  variance  of  the  rain  rate 

returned  from  MODRH.  However,  in  DELTUS,  the  vai;iance  of  3, 

2 . 

a a IS  determined  before  the  rain-rate  variance  is  determined. 

^ 2 

This  variance  Og  is  dependent  on  whether  is  specified  at  the 
location  of  interest  or  not,  as  discussed  in  Section  4.  If  M 
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2 2 

is  specified,  only  the  methodology  for  obtaining  from  and 

Oy,  as  described  in  Appendix  A of  Dutton  (1977) , is  used.  If 

M is  unspecified,  (9)  is  used  also.  An  unsmoothed  variance  of 
m 

the  rain  rate  is  then  determined  in  DELTUS,  whereupon  control  is 
passed  to  subroutine  FIT,  and  the  unsmoothed  variance  is  fit 
with  a smooth  curve  in  accordance  with  techniques  described  in 
Appendix  A of  Dutton  (1977) . Control  is  now  finally  returned 
to  the  main  program  PRED77,  where  calculations  for  the  mean 
attenuation  and  5 and  95  percent  confidence  levels  of  attenua- 
tion of  the  link  involving  the  desired  location  is  undertaken. 

6.  CONCLUSIONS  AND  RECOMMENDATIONS 

A rain  rate  prediction  procedure  has  been  developed  to 
predict  attenuation  conditions  expected  on  microwave  links  in 
the  U.S.A.  These  results  have  been  incorporated  into  a computer 
program  PRED77  for  making  these  predictions.  The  attenuation 
prediction  procedure  is,  except  for  some  minor  changes,  exactly 
the  same  as  it  was  for  Europe,  in  program  PREDIC.  It  is  the 
rain-rate  prediction  procedure  that  has  been  markedly  changed, 
as  one  might  expect,  for  the  U.S.A. 

The  data  base  for  the  U.S.A.  model  is  fairly  extensive, 
yet,  because  of  the  somewhat  unusual  input  variables  needed 
for  the  model,  this  base  is  still  limited.  If,  for  example, 
we  had  chosen  to  only  input  total  annual  precipitation,  M,  and 
had  determined  some  of  the  other  variables  like  D by  other 
means  (as  was  done  for  Europe) , then,  depending  upon  how  far 
we  would  have  carried  such  a process,  we  could  have  had  a 
much  larger  U.S.A.  data  base.  The  data  base  needs  to  be  much 
larger  in  certain  highly  variable  areas , such  as  mountainous 
regions  and  Hawaii. 

As  a consequence  of  data  base  limitations  and,  possibly 
to  a much  smaller  degree,  the  analytic  interpolation  tech- 
niques, the  interpolation  and  its  consequent  error  assessment 
are  at  present  less  than  optimiom.  We  have  endeavored  to  pro- 
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vide  the  user  with  a quantitative  estimate  of  interpolation 
error.  However,  fully  meaningful  interpolation  and  inter- 
polation errors  remain  to  be  achieved,  and  it  is  recommended 
that  such  an  effort  be  pursued  as  soon  as  possible  by  both 
data  base  enlargement  and  analytic  technique  improvement. 

It  was  not  the  purpose  of  this  report  to  improve  the 
attenuation  prediction  procedure  for  microwave  links  in  the 
U.S.A.,  except  by  improvement  of  rainfall  modeling.  Never- 
theless, such  improvement  should  remain  a priority  goal, 
because,  as  it  stands,  there  is  no  attenuation  data  base  from 
which  to  make  a recommendation  as  to  which  of  four  methods  of 
attenuation  prediction  to  use.  These  four  methods,  as  desig- 
nated in  Appendix  A,  are:  Methods  1 and  2,  corresponding  to 
two  extrapolations  of  the  earth-space  probability  modification 
factor  (Dutton  and  Dougherty,  1973)  to  terrestrial  link  appli- 
cation; Method  3,  the  method  of  Barsis  et  al.  (1973) , and 
Method  4,  the  method  of  Battesti  et  al.  (1971).  In  Europe,  it 
was  tentatively  recommended  that  consideration  be  given  to 
the  use  of  the  French  method — Method  4 . So  far  as  this  author 
can  tell,  however,  only  Method  3 of  Barsis  et  al.  (1973)  has 
received  any  validation  in  the  U.S.A.,  and  that  only  by  virtue 
of  some  limited  data  taken  in  Florida  (Jones  and  Sims,  1971) 
and  Mississippi  (Skerjanec  and  Samson,  1971) . However,  this 
limited  validation  motivates  the  tentative  recommendation  that 
Method  3 be  used  in  the  U.S.A.  Simultaneously,  it  also  moti- 
vates the  much  stronger  recommendation  that  as  much  U.S.A. 
attenuation  data  as  possible  be  checked  against  the  four 
methods,  (or  any  other  methods  that  may  become  appropriate)  to 
ascertain  which  one  truly  appears  to  give  the  best  predictions 
in  the  U.S.A. 
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APPENDIX  A.  LISTING  OF  PROGRAM  PRED77 

p!?OG^Ah  P(?£077(  INPUT, OUTPUT  »TAPE5  = I NPUT,TAP£6  = 0UTPUT) 

THIS  PROGRAM  ESVIMATE'"  ATMOSPHERIC  ATTENUATIOtJ  AND  ITS  5 AND  95 
PERCENT  CONFIDENCE  LIi'ITS  ON  MICROWAVE  (,8  TO  33  GHZ)  TERRESTRIAL 
LINKS  IN  THE  II. E. A.  FOR  THE  PURPOSES  CF  THE  U.S.  ARMT  COMMUNICA- 
TIONS COMMAND  BY  MEANS  OF  FOUR  DIFFERENT  PROCEOURcS.  PRIMARY 
EMPHASIS  IS  GIVEN  TO  TAINF ALL-CAUSEO  ATTENUATION. 


INPUT 

THREE  CAROS  ARE  READ  IN  FCR  EACH  STATION 
FIRST  CARO  — 

STATIO  - ALPHANUMERIC  ARRAY  FOR  INPUT  OF  ANY  IDENTIFYING  HEADER 
OR  COMMENTS, (COLS  1-83, 8A1C). 


SECOND  CARO  — 

XLAT  - OEGREES-MINUTES, (DD.MM) , LATTITUDE  OF  DESIRED  LOCATION, 
(COLS  l-i;,F13.0>. 

XLON  - OEGREES-MINUTES, (OO.MM) , LONGITUDE  OF  DESIRED  LCCATICN, 
(COLS  11-20, FIC.O). 

ELEV  - ELEVATION  IN  METERS  AT  OESIRED  LOCATION,  TO  MAP 

ACCURACY-ASSUMEO  TO  BE  NEAREST  Ijj  FT.  OR  35  M, 

(COLS  21-30, F13. 0) . 

F - CARRIER  FREQUENCY  IN  GHZ.  CF  TPANSi-ilSSION  LINK, 

(COLS  31-AO, FIC.O). 

013  - DISTANCE  ALONG  TRANSMISSION  PATH,  (COLS  41-50 , Fit ,0) . 

THIRD  CARD  — METEOROLOGICAL  OA.TA 

IZONE  - meteorological  ZONE  APPLYING  TO  OESIREO  LOCATION, 

(COLS  1-2,12). 

NOTE  --  IF  ANY  OR  ALL  OF  THE  METEOROLOGICAL  DATA  LISTED  BELOW  IS 
UNKNOWN,  LEAVE  THE  CORRESPONDING  FIELD  FOR  THE  UNKNOWN 
PARAMETER  BLANK, 

THIRD  CARO  — CONTINUED 

? - AVERAGE  ANNUAL  SURFACE  PRESSURE  IN  MILLIBARS, 

(COLS  11-20, Flu. 0). 

RH  - AVERAGE  ANNUAL  SURFACE  RELATIVE  HUMIDITY  AS  A DECIMAL 
FRACTION,  (COLS  21-30 ,F10 . 0 ) . 

T - AVERAGE  ANNUAL  TEMPERATURE  IN  DEGREES  CENTIGRADE, 

(COLS  31-40, F13.0). 

M - AVERAGE  ANNUAL  PRECIPITATION  IN  MILLIMETERS, 

(COLS  41-50, FIO.O). 

D - average  NUMBER  OF  DAYS  WITH  PRECIP.  GREATER  THAN  .25 
MM.,  (COLS  51-60, FIO. 3), 

U - NUMBER  OF  THUNDERSTORM  OAYS  IN  AN  AVERAGE  YEAR, 

(COLS  61-70, FIO.O) 

EMAX  - GREATEST  MONTHLY  PRECIP*  RECORDED  IN  30  YEARS, 

(COLS  71-80, F13.0) 


C0MM0N/RRAT.E/RR(12)  ,VRR(12)  ,PCT(12) 

DIMENSION  TH00(12,4),  VTAU(12*4),  TAU5(12t4),  TAU95(12,4) 
DIMENSION  TAU08T(12),  REVTAUdZ),  RELI(12),  HTOP(12),  IFLAG(4) 
DIMENSION  AT(12),  STATIO(e) 

REAL  M 

DATA  RELKIZ)  ,HTOP(12)/  100.,  10./ 

READ  INPUT  DATA. 
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PEA0«=,t030) <STATIO(I)  = 

REAO(5,110C)XLAT,XLON,f:L£M«F,OIS 

REAO<S«123ulIZONEtPtRH.T.H«OtU.EMAX 

M9ITE<6,13uO) 

MRITE(&,132S>XLAT«X1.0H.ELEV«Ft0IS»IZ0N£ 

MRITEI6.1350)PiT.kH« CtUtFMAX 

. . .OBTAIN  INTERPOLATED  .METEOROLOGICAL  DATA  (KNOWN  DATA  AT  OESIREO 
. . .LOCATION  IS  GIVEN  PRIORITYI.  USER  IS  AGAIN  CAUTIONED  THAT,  IF 
. . .DATA  IS  UNKNOWN,  TO  L'AVE  THE  SPACES  FOR  THE  DATA  ON  THE  INPUT 
, . .CARO  BLANK,  THIS  IS  THf  INPUT  OPTION  MENTIONED  IN  THE  MAIN  TEXT. 


CALL  TA!3LUSIXLAT,XL0N,ELEV,P,T,RH,M,0,U,EMAX,IFLAG) 


TEST  TO  SEE  IF  ANY  OF  THE  INTERPOLATED  VALUES  ARE  LESS  THAN  OR 
EQUAL  TO  ZERO.  IF  SO,  CEASE  EXECUTION  AND  PRINT  AN  ERROR 
MESSAGE.  IF  NOT,  CONTINUE  EXECUTION, 


TEST=  AMINl(M,0,U,EMAy) 
IF(TEST  .GT.  0.0)  GO  TO  1 
WRITE  (6,1250 
WRITE(6,1275) 

WRITE (C,12SO)H,0,U,EMAX 
STOP 


....CALL  VARNCE  TO  GET  VARIANCES  OF  H,  0,  AND,  U 

1 CALL  VAHNCE(IZONE,IFLAG,VM,VO,VU) 

....CALL  OELTUS  TO  GET  THE  RAINRATE  AND  ITS  ASSOCIATED  VARIANCE 

CALL  0ELTUS(EHAX,M,O,U,VH,VO,VU,8ET,IFLAG(4)) 

00  105  1=1,11 
105  RELiaisPCTd) 

GAM=  1.  ♦ j.085*(F  - 3.5)*EXP(-0.a06  • F • F) 

GAM=  (1.14  - 0.G7*((F  - 2. ) «« (1. /3. ) I ) • GAM 
IF(GAM  .LT.  1.0)  GAM^l.O 
CAY=  GAMMA(F) 

WAV=  29.9793/F 

....IF  METHOD  = 1,  THE  PROBABILITY  MODIFICATION  FACTOR,  PTl,  IS  USED. 

....IF  METHOD  = 2,  THE  PROBABILITY  MODIFICATION  FACTOR,  PT2,  IS  USED. 

....IF  METHOD  = 3,  THE  METHOD  OF  BARSIS  £T  AL.  (1973)  IS  USED. 

....IF  METHOD  = 4,  THE  METHOD  OF  BATTESTI  ET  AL.  (1971)  IS  USED, 

....CALCULATIONS  OF  ATTENUATION  FOR  METHODS  3 AND  4. 

DO  100  1=1,11 

IF(RR(I)  .LT.  1.0)  GO  TO  223 

GOTO (195,205,180,205,205,180,160,185,190,105,230,200,190,200,170, 
1 170,165,195,195) IZONF 

....determine  STORM  TOP  HEIGHTS 
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165  HTOP(I)=  0.3441i*4*RR(I)  ♦ 11.4796 
GOTO  215 

170  HTOP(I)=9.46601759*(RR(I)**,192178) 
GOTO  215 

180  HTOP ( I) =10, 444337660* (RR( I)**, 14191 97) 
GOTO  215 

185  HTOP ( I) =14. 91071378 3* (RR( I) ♦*,0765991) 
GOTO  215 

190  HTOP(I)=10.63765431*(RR(I)**.100104) 
GOTO  215 
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HTCP(I)sl<*,C3<*3:j57*(:'  5 36909941 

GOT  3 Z'.~ 

HT0P(I)=5.68652874?*<‘’R<II**,213556I 
GOTO  215 

HTO?(  II  = 11.6811  916*>*  <-««!)  ••.109999) 
GOTu 

HTOPdIs  9.; 

THOO(I.3)=  O.C 
TMOO(I,4)s  C.O 
VTaU«l,3)=  U.3 
VTAU(I,-»)=  u.C 
GO  TO  99 

HTOP(I)=  flMAXl(HTOP<I) .9.0) 


.CALCULATE  METHOD  3. 

METHCC=3 

CALL  KAIN9T(RR(I) .OIS.RH) 

OM=  OIS 

IF<0M.GT.22.C)  CM=?2.C 
THCD(I,METHOO)=CAY*(RM*^GAM)*OM 

VTAUa, METHOD)*  • (TMOO<I.METHOO)^6AM/RRCI))*^2. 


.CALCULATE  METHOD  4. 

METH0D=4 

RF=  REOCO(DIS.PCT<I)) 

TMODJl, METHOD)*  CAY  • (CRF  • RRCI))*^GAM)  • OIS 
VTAUII, METHOD)*  VRR(I)  • ITMOOI I .METHOD) •GAM/RR( I) ) •♦E. 

CALL  ATCOSiF.T.P.RH.HTOPd)  .RELKI)  .BET.RR(I)  .AT(I)  .NAV) 

TAUDBTCD*  ATII)  • OIS 

CONTINUE 

.CALCULATIONS  OF  ATTENUATION  FOR  METHODS  1 AND  2. 

CALL  ATC0S(F.T.P.RH.HT0P(12)  .RELKIZ)  .BET.1.E-36.AT  (12)  .WAV) 
TAUOBT(12)*  AT(12)  • OIS 
DO  16C  METHOD*!. 2 

CALL  PROHO( WAV. OIS. METHOD. TAUOBT.REVTAU.RELI.HTOP) 

DO  160  1*1.11 

IFCRRd)  .GT.  l.u)  GO  TO  i:6 
THOOd. METHOD)*  0.3 
VT AUd. METHOD)  * 0.0 
GO  TO  160 

TMOOCI. METHOD)*  REVTAUd)  ♦ TAUOBTdE) 

VTAUCI. METHOD)*  VRRd)  • (TMOOd. METHOD)  •GAM/RRd)  )**2. 
CONTINUE 

.CALCULATE  S AND  95  PERCENT  CONFIDENCE  LIMITS  OF  ATTENUATION 
.DISTRIBUTION  FOR  ALL  METHODS  (1-4). 

CALL  TP.UNCM(TM00.VTAU.TAU5»TAU95) 

.OUTPUT  HEADERS  AND  RESULTS. 

NRITE(6.14G0)  (STATIOd)  .1*1.8) 

DO  333  J*1.4 
IF(J.EQ.l)  MRITE(6.14E0) 

IF(J.EQ.2)  NRITE(6.1451) 

IF(J.EQ.3)  NRITE(6.14'2) 

IF(J.EU.4)  NRITE(6.1453) 

MRITE(6.15a0)  (PCTd)  .1*1.11) 

NRIT£(6.2303) (RR(I) .1=1.11) 

WRITE  (6. 2900  (VRRd)  .1*1.11) 
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MPIT-:  (o,3uC.C)  (TMOC  (I,J> 

WRIT£  (?,,35Ci;MVTAU(I,J)  ,1  = 1,11) 

HPIT£  IT  AU9?  (I,  J)  ,1  = 1,11) 

335  WPITEIfe, 4500)  (TAU‘<(I,J)  ,1  = 1,11) 

STOP  ' i 

lOCC  TORMATCiAlo) 
li:&  FORIATIsFli.C) 

12-0  FORilAT(I2,8X,7Flj,  :)  I 

12?0  FORMAT(///lX,20H********************,5X,13HER'’nR  EX  IT ,5X , 20H****** 

I*, ****»♦••*•••,//,  I 

1275  FCR*lAT(lX,71Hh,  0,  U,  OR  EMAX,  INTERPOLATED  VALUEIS)  ARE  LESS  THAN 

1 OP  EQUAL  TO  ZEPO./) 

1280  FCRMAT(1X,3HM  = , El  5 , £ X , 3HD  =,E15, 7,5X  ,3HU  = ,E15.7  ,5X  ,6HEMAX  =,E1  i 

15,7)  ! 

1300  F0R!iAT(1H1,28HR£SULTS  PROP  PROGRAM  PRE077.,  \ 

1325  FORMAT I1X,41HInFUT  DATA  FOR  MICROWAVE  LINK  AS  FOLLOWS. /I X ,6HXL AT  = I 

1, F7,3,5X,6HXL0N  = , F7 . 3 , 5X, 6 HELE V = , F7 . 3 , 5X ,7HFREQ,  s,F7. 3 ,5X,5HDIS  j 

2 =,F7.3,5X,7HIZCNE  =,I3)  ! 

1350  F0RMAT(1X,37HINPUT  METEOROLOGICAL  DATA  AS  FOLLOWS. /IX, dHPRESS.  =,F  j 

17.3,5X,7HTEMP,  =F 3. 4, ' X, 1 IHREL.  HUM.  = , Ffc .4 ,5 X , 3HM  = , F9. 4 ,5X , 3H0  = ] 

2, F7.3,5X,3HU  = , F7 . 3 ,5X ,6HEM AX  =,F7,3) 

140  0 FORMATI///1X,20H******  5X, 8 AlO ,5X , 2uH***************  i 

1****»,///)  I 

145C  F0RMATI51H  THE  PROBABILITY  MODIFICATION  FACTOR,  PTl,  IS  USED.,//)  ' 

1451  FORMAT(51H  THE  FR0SA3ILITY  MODIFICATION  FACTOR,  PT2,  IS  USED.,//)  I 

1452  F0RMAT(44H  THE  METHOD  OF  BARSIS  ET  AL.  11973)  IS  USED.,//)  ■ 

1453  F0R'IAT<46H  THE  METHOD  OF  EATTESTl  ET  AL.  (1971)  IS  USED.,//)  i 

15C0  F0RMATUX,12HPCT  = , 11  (F9, 3,1X) /)  j 

2050  F0RMAT(1X,12HR(MM/HR)  = , 11 (F9. 3 ,1X) /)  1 

2500  F0RMAT(1X,12HVAR(R)  = , 11 (F9. 3,1X) /)  j 

3000  FORMAT(1X,12HATT£N(03)  = , 11 (F9. 3 , 1 X) /)  j 

35C0  F0RMAT(1X,12HVAR(ATT)  = , 1 1 (F9. 3,1X) /) 

4000  F0RMAT(1X,12HATT.  (95)  = , 11 (F9. 3,1X) /)  i 

4500  F0RMAT(1X,12HATT. (5)  = , 11 (F9. 3 , IX) /// ) j 

END 
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SUfli?OUTINC  OtLTUSCr  M4X,eMtDtU«WMt»/0E»VU.8eTA,IFLAG4> 


THIS  3U3S0UT1NE  USES  THE  METHOD  OF  DUTT0NJ1977J  , ANOt  SOME  HEM 
VATIANCE  PREOICTIOH  PRCCEOURES  TO  obtain  variations  of  T*1  min. 

RAIN^ATES  IN  TERMS  OF  ESTIMATtO  STANCARC  DEVIATIONS,  BASED  ON 
CURScNTLV  AVAILIA3LE  TFAR  TO  YEAR  PRECIPITATION  DATA. 

. INPUT 

£M,VM-  ANNUAL  AND  ASSCCIATEO  VARIANCE  OF  PPECIP.  AT  EACH 
STATION  (MM) 

O,V0-  NUMBER  AND  ASSOCIATED  VARIANCE  OF  DAYS  WITH  PRECIP. 

GREATER  THAN  .25  MM 

U, VU-  NUMBER  AND  ASSOC.  VARIANCE  OF  THUNDERSTORM  DAYS  IN  AN 
AVERAGE  YEAR 

EMAX=  GREATEST  MONTHLY  PRECIP.  RECORDED  IN  30  YEARS 
IFLAG<»-  THIS  OtTER^'INES  THE  VARIANCE  FORMULATION  FOR  BETA.  IF 
IT  IS  ZERO,  THE  FIRST  METHOD  OF  OUTTON  (1977)  IS  USED.  IF  IT 
IE  NOT  ZERO,  THE  ZONAL  CRITFRION  IS  USED. 

.OUTPUT 

TETA-  RATIO  OF  THUNDERSTORM  PRECIP.  TO  TOTAL  ANNUAL  PRECIP. 

OUTPUT  FOUND  IN  /RRATE/ 

RR-  ESTIMATED  l-MIL.  RAINRATE  DETERMINED  IN  MOORH 
VRR-  ESTIMATED  VARIANCE  OF  RAINRATE 

COMMON/ RRAT£/RR(12I ,V'  R(12) ,PCT(12) 

DIMENSION  VR0(12),  XX(12),  IHICH(IZ) 

.DATA  STATEMENT  CONTAINING  COEFFICIENTS  FOR  MODIFIED  RICE- 

HOLMPERG  (RH)  MODEL  PARAMETERS.  IT  ALSO  CONTAINS  THE  MEAN  VALUE 
ANO  VARIANCE  OF  THE  MOCIFIEO  R-H  PARAMETER  R3AR1T  FOR  T^l  HIN. 

DATA  B1,B3,B4,BS,S3/3.96,1.223E-C3,-3.6V5,-7.921E-C3,0.191&/ 

DATA  RBARll,Sl/33.66<,3,b.eai7/ 

.FIND  THE  VARIANCES  FOR  THE  RAINRATES  BY  USING 

1)  PARAM-TO  GET  NErOED  PARAMETERS  USED  BY  THE  OTHER  ROUTINES  \ 

2)  MOORH-  TO  FIND  THE  ACTUAL  RAINRATE. 

3)  CELTUS-  TO  GET  THE  VARIANCE  OF  THE  RAINRATE 

CALL  PARAM(EMAX,£M,0,U,BETA,BETAO,RP1^R8AR1T,RBAR2T,T1T,T2T,TST,RS 
1 T,R3AR11,Q) 

OBTAIN  RAIN  RATES  ANO  THEIR  VARIANCES  FOR  12  SELECTED  PERCENTAGES 

OF  AN  AVERAGE  YEAR. 

CALL  MOORH (RP1,RBAR1T,RBAR2T, TIT, T2T,RST,TST) 

....DETERMINE  THE  VARIANCE  OF  BETA. 

IFIIFLAG4  .NE.  0.0)  GO  TO  2 

AR6=  -0.35  • (1.  ♦ C.125«EH)/U 
EXPON*  EXP(AR6) 

PARTMs  -BETAC  » 0.0875  * EXPON/U 

PARTUS  0.7  • 9ETA0  • (1.  ♦ 0.125*EM)  • EXPON/(U**2.) 

VBETs  VH«(PARTM««2.)  ♦ VU*(PARTU**2.) 

GO  TO  3 

2 VBETs  VH  • (BETA/EM)**2. 

3 BMRs  beta  • EM/(RBAR11*»2.) 

....DETERMINE  VARIANCES  OF  THE  PARAMETERS  IN  THE  MODIFIED  R-H  MODEL 

ANO  COMBINE  MITH  CfRTAIN  PARTIAL  DERIVATIVES  (APP.O  OUTTON  ET 

AL.  1974) 
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DC  IQjj  K-ltl2 

OETE^MIWt  IN  HHfiT  -^ANCE  THE  RAINRATE  LIES  IN 

T=  87.66  ♦ PCT<K) 

IFIRRtK)  .GE.  6.0)  GO  TO  100 
GO  TO  liil 

IFCRP(K)  .GT.  3r.J)  GO  TO  102 
GO  TO  103 

PAINRATi  LIES  IN  THE  LOH  RANGE. 

ARG»  ITIT  ♦ T2T)/T 
PRRPT=  ALOG(ARG) 

PRT2T=  RPl/fTlT  ♦ T2T) 

TLOWl*  PRRPT  • 83 

TLON2=  PRT2T  • B6TA/RBAR11 

TLOW3=  PRRPT  • 8*. 

TL0H4=  PRT2T  ♦ EM/RhARII 

VR1=  ((TLONl  ♦ TL0W2)**2.)*WM  ♦ (<TL0N3  ♦ TL0H4) **2. ) * VBET 
VR2=  l(PRRPT*B5  ♦ F PT2T*B1) ••2.) ^VOE  ♦ l(PRT2T  • BMR  • Sl)**2.) 
VR3=  ( (PRRPT  ♦ S3)*»2.) 

WRO(K)=  VRl  ♦ VR2  ♦ Vr3 
GO  TO  ICCC 

RAINRATE  LIES  IN  HIGH  RANGE 

PRR11=  AL06(T1T/T)  - 1. 

PRTlTs  RBARll  * (1.  ♦ ALOG (T/Tl T) I /TIT 
THIGHls  PRTIT  ♦ BETA/RBARll 
THIGH2=  PRTlT  ♦ EM/R8AR11 
ThIGH3=  PRRll  - (PRT1T*BMR) 

VRl*  THI6H1  * THIGHl  ♦ VM 
VR2=  THIGH2  • THIGH2  • VBET 
VR3=  THIGH3  • THIGH3  * SI  • SI 
WRO(tC)s  VRl  ♦ VR2  ♦ VP3 
GO  TO  1000 

RAINRATE  LIES  IN  THE  HIOOLE  RANGE.  DETERMINE  PARTIALS  FIRST 

PRTST=  4.  • (RST**4I  * ( AL0G<TST/T)**3) /TST 
PTSTRS*  -2.340347319  * TIT  • Q/(RST*RST) 

ARG=  (TIT  ♦ T2T)/T1T 

BOT=  ((3C. /RBARll)  - (5,/RPi)  ♦ AL06(ARG))**2 
PRSTRP=  -4.225/(B0T  • RPl  • RPl) 

PRSTT2S  -0.e45/((TlT  ♦ T2T)  • BOT) 

ARG=  (30. /RBARll)  - (T2T/IT1T  ♦ T2T) ) 

PRSTRl*  0.845  • ARG/(BOT  • RBARll) 

PRSTTla  -0.845  * ARG/(30T  ♦ TIT) 

PRRST*  PRTST  • TST  • (ALOG(TST/T)  ♦ (RST*PTSTRS/TST) ) /RST 

ARG=  (30. /RBARll)  ♦ (TIT  • 2.340347319  ♦ PRSTT1/(RST  • RST)I 
PTSTTl*  Q • (1.  - ARG) 

AR6»  <1. /RBARll)  ♦ (2.340347319  * PRSTRl/(RST  ♦ RST)) 

PTSTRl*  Q * TIT  • ((33./(RBARll*RBARll) ) - ARG) 

DETERMINE  CERTAIN  CONSTANTS  USED  IN  FINDING  THE  MID-RANGE  RAINRATE 
VARIANCE 

TMIOls  PRSTRP  ♦ B3 
TMI02a  PRSTTl  * BETA/RBARll 
TMI03a  PTSTTl  • BETA/RBARll 
THI04*  PRSTRP  • B4 
TMI05«  PRSTTl  * EM/R9AR11 

\ 
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TMIOfes  PTSTTl  • cM/faftRll 
T*1I07=  PRSTRP  • 95 
TMIOBs  PRSTTl  ♦ BMR 
THI09=  PTSTTl  • 3MR 

>#TEMP=  IPTSTPS  • ITMIDI  ♦ TMI02J  ♦ TMID3)  • PRTST 
VRls  l((TMI01  ♦ TMI32»*PRRST  ♦ VTEHPI**2.)*  VM 
WTtMPs  IPTSTPS  ♦ niID<*  ♦ THI05I  ♦ THIDB)*  PRTST 
VR2s  <((THIO<i  ♦ TMI07»*PRRST  ♦ VTEMPI**2.)*  V3ET 

VTEMP=  IPRRST  • PR5TT2>  ♦ IPRTST  ♦ PTSTRS  • PRSTT2) 

VR3=  1 1 IPRRST*TMIC7  ♦ PRTST*PTSTRS*TMI07)  ♦ \ITEMP*81)  ♦•2.)  • VDE 
VTEMP*  IIPRSTRl  - TMIC8)*PTSTRS  ♦ PTSTRl  - TMI09)  ♦ PRTST 
VR!*s  (IIPRSTRl  - TMID?I*PRRST  ♦ VTEHP)  **2. » *$1  • SI 
VTtMP=  PRRST*PRSTRF  ♦ PRTST*PTSTRS*PRSTRP 
VR5=  IVTEMP  • S3>**2. 

VROIK)=  WRl  ♦ VP2  ♦ tfR3  ♦ VR4  ♦ VR5 


I 


lOOC  CONTINUE 


FIT  THE  RAIN  RATE  tIARIANCE  RESULTS  MITH  A SMOOTH  CURVE  FOR  PREDIC- 
TION PURPOSES*  ANO  PERFORM  THE  PREOICTION  FOR  THE  12  PERCENTS  OF 
AN  AVERAGE  YEAR. 
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200C 


2SD0 


1 


1 


2749 

2750 


NARG=  J 

HT=  0.0 

DO  2000  1=1,12 

ARG=  ITIT  ♦ C.5*T2T)/ (87.66  • PCTIDI 
IFIARG  .LE.  1.1  GO  TO  2000 
ARG=  ALOGIARG) 

NARG=  NARG  * 1 
XX(.IARG)=  ALOGIARG) 

INICH(NARG)=  I 

IFIRRII)  .GT.  30.)  MT=  MT  ♦ 1. 
CONTINUE 


00  2500  1=1, NARG 
VRR(I)=  VROlIillCHlI)) 

IFIRRM)  .GT.3G.  .ANO.  MT.NE.O.O)  VRRII) 
VRR(I)=  ALOGIVRRID) 

CONTINUE 

CALL  FIT(XX,VRR,A,0,NARG) 

AE=  EXPIA) 

00  2750  1=1,12 
IFIRRII)  .GT.  1.0)  GO  TO  1 

VRRII)=  PCTII-1)  • VRRII-1)/PCT(I) 
IFIRRII)  .NE.  0.0)  GO  TO  2750 
VRR(I)=  0.0 
GO  TO  2750 

ARG=  ITIT  ♦ C.5*T2T)/  187.66  • PCTID) 
IFIARG  .GT.  1.)  GO  TO  2749 
VRR(I)=  VROII) 

GO  TO  2750 
(X(I)=  ALOGIARG) 

VRR(I)=  AE  • XXII)**B 
CONTINUE 

RETURN 

ENO 
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VRR(I)*FLOAt (NARG)/NT 
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SUS-JOUTINE  PARAH(ff'AX»tM,0tUtBET#,BETADtRFlfR3ARlTtRBAR2T  tTlT,T2Tt 
1 TST,RST,RBAR11,Q» 

THIS  SUBROUTINE  OETERMINES  VARIOUS  PARAMETERS  USED  IN  FINDING  THE 
1-MIN  RAINRATE  ANO  ITS  ASSOCIATED  VARIANCES. 

.INPUT-  30  YEAR  STATION  MEANS 

EM=  ANNUAL  PRECIP.  AT  EACH  STATION  IMM» 

0=  NUMBER  OF  DAYS  IN  AN  AVERAGE  YEAR  WITH  PRECIP.  GREATER  THAN 
.25  MM 

U=  NUMBER  OF  THUNDERSTORM  DAYS  IN  AN  AVERAGE  YEAR 
EMAX=  GREATEST  MONTHLY  PRECIP.  RECORDED  IN  30  YEARS 
PBARlls  MEAN  R3AR1T  FOR  T=  1 MIN. 


OUTPUT 

BtTA=  RATIO  OF  THUNDFRSTORM  PRECIP.  TO  TOTAL  ANNUAL  PRECIP. 
RP1,T1T,T2T.R3AR1T,R3AR2T.TST,RST,Q-  PARAMETERS  IN  R-H  MODEL 
CORRESPONDING  TO  A 1-MIN.  RAINRATE 

COMMON/ RRATE/RR 112), VSR <1 2) ,PCTI12) 

DATA  33,84,B5,Bb/1.223E-03,-0.6G5,-7.921E-03,1.92/ 

DETERMINE  BETA-  THE  THUNDERSTORM  RATIO  - FIRST 

EXPONS  -5.*EXPI-. Jl4»£MAX) 

BETA0=  0.03  ♦ .97*EXP(EXP0N) 

EXPONs  -.35*(1.  ♦ (.125*tM))/U 
BETAS  a£TA0*(.25  ♦ 2 .*EXP (tXPON) ) 


...DETERMINE  RBARIT 

Cl=  7.047C9132E-03 
EXPONs  -8ETA*EM/9766. 

Bl=  13.457»EXPIEXP0N) 

Als  1.  ♦ ie5.67864*EXP(EXP0N)) 

ARGs  (l./ll.)  * Cl»a. 065397403 
RBARlTs  A1  ♦ 81*AL0G<AR6) 

IFIABStRBARll  - RBARIT I .GT.  5.0)  RBARlTs  RBARll 
...DETERMINE  TIT 
1 TlTs  BETA*EM/R8AR1T 

...DETERMINE  T2T 


2 T2Ts  3.96  • 0 

...DETERMINE  RBAR2T 

RBAR2TS  (1,  - BETA)*EM/T2T 

...DETERMINE  RPRIME 

RPls  B3*EM  ♦ B4*BETA  ♦ 85*D  ♦ B6 

...DETERMINE  RST 

ARG=  (TIT  ♦ T2T)/T1T 
ARGs  ALOGIARG)  * (33. /RBARIT) 
RSTs  3.S44998/ARG 

...determine  Q 


(5./RP1) 
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SUBROUTINE  MOCRHI fiPl ,r BARiT t RBARZTf TIT, T2T.RST ,TST) 

THIS  SUBROUTINE  FINOS  THE  RAINRATE  USING  THE  MODIFIED  R-H 

MODEL  TO  GH/E  AN  iriTIAL  ESTIMATE  ANO  THEN  USES  THE  NEHTON- 
RAPHSONS  METHOD  OF  FINDING  ZEROE*S  FOR  AN  ITERATIVE  REFINEMENT. 

...INPUT 

RP1,R3AR1T,RPAP2T,T1T,T2T,RST,TST-  PARAMETERS  USED  IN  THE 
MODIFIED  R-H  M00‘;L. 

PCT-  PERCENT  EXPECTANCY  IN  HOURS  PFR  YEAR  OF  RAINRATE 
...OUTPUT  (/RRATE/) 

RR-  I MIN.  RAINRATf  LOCATED  IN  /RRATE/ 

COMMON/RRATE/RR(12) ,VRRI12J ,PCTtl2» 

...INITIALIZE  SOME  CONSTANTS  ANO  DETERMINE  THE  5 ANO  3:  MM.  RAIN- 
RATE ACCORDING  TO  THE  MODIFIED  R-H  MODEL. 

9=  -l./RBARiT 
31=  -0.453074/RBARET 
32=  -2.8571A3/R3AR2T 
T5=  (TIT  ♦ T2T)  * £XP(-5./RPl) 

T3i=  TIT  ♦ EXP(-3C./R3AR1T) 

DO  ljc3  KKsl,12 
T=  37.66  ♦ PCT(KK» 

...TFST  TO  PREVENT  NEGATIVE  RAIN  RATES,  SINCE  THE  MODEL  ALLOWS  THOSE 
RAIN  RATES  TO  OCCU^. 

T0F;=  tit  ♦ T2T 

IF(T  ,LT.  TOFO)  GC  TO  4 
RAPROX=  0.0 
GD  TO  ICOO 

....DETERMINE  IN  WHAT  INTERVAL  THE  RAINRATE  LIES  IN  ANO  FIND  AN 
INITIAL  ESTIHATE  FO  THE  ITERATIVE  REFINEMENT. 

4 IF(T  .LT.  T5)  GO  T?  1 

....LOW  R INITIAL  ESTIMATE 

ARG=  (TIT  ♦ T2T)/T 
RAPROX=  RPl  * ALOG(A'?GI 
GO  TO  3 

1 IF(T  .LE.  T3u)  GO  TO  2 

....MID  R INITIAL  ESTIMATE 

RAPROXs  (RST  * ALOG(TST/T) )**4. 

GO  TO  3 

....HIGH  R INITIAL  ESTIMATE 

2 RAPROX=  R9AR1T  • AL0G(T1T/TI 

...THE  ITERATIVE  REFINEMENT  IS  DONE  HERE.  THE  N'WTON-RAPHSON+S 
METHOD  IS  USEO  ON  THE  MOOIFIEO  R-H  MODEL  WITH  THE  INITIAL 
ESTIMATE  AS  THE  FIRST  APPROXIMATION.  AN  ARBITRARY  ERROR 
criterion  of  •,.£-:■»  is  OEMANOEO  for  CONVERGENCE. 

...IF  THE  ITERATIVF  TECHNIQUE  FAILS  THE  LAST  VALUE  OF  RAPPROX  IS 

SUBSTITUTED  IN  AND  AN  ERROR  MESSAGE  IS  PRINTED  OUT.  PROCESSING 
THEN  CONTINUES  WITH  THE  NEXT  VALUE  OF  PCT. 
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FOFf?,l=  TIT  * EXP(i3*RAPi?0X) 
A^G=  B1  ♦ PAP-^OX 
IF(ARG  ,GT,  -6F.)  GC  TO  b 
F0F?2=  O.C 
F0FR3=  L.u 
GO  TC  3 

F0FR2=  3.35  * T2T  * EXP(ARG) 
ARG=  32  ♦ RAFRCX 
IF(ARG  .GT.  -tr.)  GO  TO  7 


FCF.<3=  3.0 
GO  TC  8 

FOF<3=  a.fcs  ♦ T2T  • EXP(ARG) 
F0FR=  T - (FOFRl  ♦ F','FR2  ♦ F0FR3) 


F0FRP1=  3 • FOFPl 
F0FRP2=  31  ♦ FCFR2 
FOFRP3=  32  • FCFR3 
F0FRP=  -JFOFRFl  ♦ FrFRP2  ♦ F0FRP3) 


PAPPOXs  RAPROX  - (FCFR/FOFRP) 

.....PROVIDED  THE  ABOVE  CrNOITION  ON  THE  RAIN  FATE  IS  MET,  RAPFROX 
HAS  TO  6E  6RFATER  THAN  ZERO.  THUS  IF  RAPPROX  IS  LESS  THAN 
ZERO,  SUBSTITUTE  RCPPRCX  EQUALS  ZERO. 

IFCRAPROX  .LT.  0.3)  RAPROX=  0.0 

500  IFrA3S(FOFR)  .LT.  u.E-l6)  GO  TO  IGOO 

....IF  THE  ITERATIVE  SOLUTION  FAILS  THE  ERROR  MESSAGE  IS  PRINTED  HERE 
HRITECc ,9)T, RAPROX 

WRITE(6,5)F0FR,  FOFRl,  FCFR2,  FOFR3,  FOFRP 
1000  RP(KK)=  RAPROX 


RETURN 

5 FORPAT(lX,fcHFOFR  = , El , . 7 , X ,7HF0FR1  = , E15 . 7 , 5X  , 7HFOFF  2 =,E15.7,5X, 
17HF0FR3  =,E15.7/1X,7HF0FRP  =,E15.7///) 

9 F0R-1AT(///lX,39HITcRATIVE  METHOD  IN  MOORH  FAILS  FOR  T =,F7.4,5X,13 
IHLAST  RAPROX  =,E15.7//) 

END 
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SUBROUTINE  FIT(Xfy,A,.I,N) 


This  subroutine  pesfocms  a linear  regression  on  the  input  data 

X AND  Y FIT  THROUGH  THE  MEAN  SUCH  THAT 
Y=  ax  ♦ i 

. INPUT 

X - THE  INDEPENCENT  VA"IA3L£S  OF  THE  REGRESSION. 

Y - THE  DEPENDENT  VARIABLES  OF  THE  REGRESSION. 

N - THE  NUMBER  OF  INOEFENOENT  OR  DEPENDENT  VARIABLES. 

.OUTPUT 

3 - SLOPE  OF  THE  REGRESSION  LINE 
A - INTERCEPT  OF  THF  REGRESSION  LINE 


.NOTE  - ALSO  DETERMINED  ARE  THE  MEAN  VALUES  OF  X AND  Y - XBAR 

ANC  YBAR,  THE  VARIANCE  OF  X - VARX,  AND,  THE  COVARIANCE 
OF  X AND  Y - COV 


DIMENSION  XIN),  Y(N) 

INITIALIZATION 

SUMX=  3.0 
SUMY=  3.0 
SUMXYs  C.O 
SUMXX=  0.0 

DETERMINE  THE  SUMS  OF  X,  Y,  X*Y.  ANO,  X SQUARED 

CO  1000  1=1, N 
SUMX=  3UMX  ♦ X(U 
SU.1Y=  SUMY  ♦ Y(I) 

SUMXY=  SUMXY  ♦ X(I)*Y(I) 

L30C  SUMXX=  SUMXX  ♦ X(I)**?, 

DETERMINE  THE  OUTPUT  - SEE  NOTE  ABOVE 

XBAR=  SUMX/FLOAT (N) 

YBAR=  SUMY/FLOAT(N) 

VARX=  <SUMXX  - X8AR*SUMX»/FLOAT(N  - IJ 
COV=  (SUMXY  - XeAR*SUMY»/FLOAT(N  - 1) 

B=  COV/VARX 
A=  YBAR  - 9*XBAR 
RETURN 
END 
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SUB'^OUTINE  VARNCEdZOf'itlFLAG,  VM»V0,VU) 


THIS  SUTROUTINE  FldS  THE  ZONAL  VARIANCES  OF  METEOROLOGICAL  OATA 
USED  IN  FINCING  TH  VARIANCE  OF  THE  RAINRATE.  THESE  ZONAL 
VARIANCES  ARE  COMP'^SEC  OF  THE  SPATIAL  TEMPORAL  VARIANCE,  AND 
IF  THIS  jATA  is  unknown,  THE  MEAN  SQUARE  ERROR  DUE  TO  THE 
APPROXIMATION  MiTH''OS  USED  TO  FINO  THIS  METEOROLOGICAL  OATA. 

IF  ANY,  OR  ALL,  OF  THIS  METEOROLOGICAL  INPUT  DATA  IS  KNOWN,  THE 
MEAN  SQUARE  ERROR  FOR  THE  KNOWN  OATA  IS  NOT  INCLUOEO. 

INPUT 

IZONE-  ZONE  NUMBER  OF  THE  ZONE  CONTAINING  THE  INTERPOLATED 
STATION 

IFLAG-  A SINGLY  DIMEfSIOKEO  INTEGER  ARRAY  THAT  DETERMINES  WHICH 
VARIANCE  FORMULATION  IS  USEO.  THE  ARRAY  IS  SET  UP  AS 
FOLLOWS 

IFLAG(l)-  SPECIFIES  THE  EM  VARIANCE  FORMULATION 
IFLAG(2)-  SPECIFIES  THE  0 VARIANCE  FORMULATION 
IFLAG(T)-  SPECIFIES  THE  U VARIANCE  FORMULATION 
IFLAG(4)  - DETERMINES  WHETHER  EMAX  WAS  SPECIFIED  OR 
NOT.  THIS  ULTIMATELY  DETERMINES  THE 
FORMULATION  USED  FOR  THE  VARIANCE  OF  BETA. 
IT  IS  NOT  USEO  IN  THIS  SUBROUTIN’E. 

OUTPUT 

VM-  VARIANCE  OF  £M(M),TH£  AVERAGE  ANNUAL  PRECIPTATION 
VO-  VARIANCE  OF  0,  THE  AVERAGE  NUMBER  OF  DAYS  WITH  PRECIP. 

VU-  VARIANCE  OF  U,  THE  AVERAGE  NUMBER  OF  THUNOERSTORM  DAYS 

COMMON/STATS/  VAREM(IM) ,VAR0(19) ,VARU(19) 

C0MM0M/RM3ERR/  PMSM(19»,  RMSOUS),  RMSU(19) 

DIMENSION  IFLAG(4) 

FIND  VARIANCE  FOR  EACH  PIECE  OF  INPUT  OATA 

IF  STATEMENT  LA3FL  IS  LESS  THAN  500,  THIS  OATA  WAS  UNKNOWN  AND 
HAD  TO  BE  APPRUXIMATEO.  IF  THE  STATEMENT  LABEL  IS  GREATER 
THAN  400,  THE  INPUT  OATA  WAS  SPECIFIED  AND  ONLY  THE  SPATIAL, 
TEMPORAL  VARIANCE  IS  USEO. 

00  1030  1=1,3 

IFCIFLAGd)  .N£.  0)  GO  TO  (100,200,300  1 
GO  TO  (5C0,6CC  ,7J';)  I 

100  VM=  VAREMdZONE)  ♦ RM  SM  ( I ZONE>  ♦RMSM  (IZONE » 

GO  TO  1000 

200  VO=  VAROdZONE)  ♦ RMSO  ( IZONE)  *RMSO  (IZONE) 

■ GO  TO  1000 

1 3C0  VU=  VARU(IZONE)  ♦ RMSU ( IZONE ) *RMSU ( I ZONE ) 

1 GO  TO  1000 

1 500  VM=  VAREMdZONE) 

i GO  TO  1C03 

I 6C0  VD=  VAROdZONE) 

, GO  TO  1000 

I 700  VU=  VARUdZONE) 

1000  CONTINUE 
RETURN 
END 
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SU3V0LTINE  CMPLXN  (WAV!:,  T,  CSO,  HIMrfK,  CTHT,  CTPT,  C,  Z') 


THIS  POUTINE  USES  THE  OErTVE  FORMULATION  FOP  THE  UIELECTRIC  COPSTAN 
OF  WATER.  SEE  KcRH.O.E.  (1951),  PROPCGATION  OF  SHORT  RADIO  HAVES, 
(MCGRAW-HILL  BCOK  CO.  INC.,  NEW  YORK,  N.Y.)  PG,  e75 


.INPUT 

HAVE  = FRIE-SPACE  WAV  LENGTH  IN  CM. 

T = TEMPERATURE  IN  OEGREfC  CENTIGRADE. 

.OUTPUT 

CSO=OIELECTRIC  INFLUENC'  OF  WATER  ON  SCAT  IN  ATTCOE. 

HIM.M<=0IELECTRIC  influence  of  MATER  ON  ABS  IN  ATTCOE, 

CFPT  NOT  USED  IN  TtSTTO. 

C=REAL  PART  OF  THE  OirLFCTRIC  COEFFICIENT  OF  WATER. 

0-IMAGINARY  PART  OF  THE  DIELECTRIC  COEFFICIENT  OF  WATER, 

DIMENSION  EJt  (6),  OOLAM  (6),  TTAB  (6> 

OATA(TTAB(I) ,I*l,6)/3. : :s,1.CE1,1,8E1,2.0E1,3.0E1,W.3S1/ 
UATA(POO(I)  ,I  = l,6)/3.')cl,S.4£l,8.1El,3.CEl,7.64£l,7,3£l/ 

OAT  KOOLAMd)  , I = 1 , 6 ) 73 , 59E0 , 2 . 24EL , 1. 66E-.  ,1 .5  IE  j , 1. 12E  0 , 8 . E3E-1/ 

ESTA3LISH  CONSTANTS  FC®  USE  IN  THE  0£8Y£  FORMULA, 

EIN  = 5.5 

EC  = Te=P  (6,  T,  TTAB,  EC 
DLAM  = TERP  (6,  T,  TTAB,  OOLAM) 

E : OLAM  / HAVE 

A = (EO  - EIN)  / (1.0  ♦ (3  * ♦ 2)) 

C = EIN  - 1.0 

D = EIN  * 2, C 

E - A * C 
H s A ♦ 0 
G = A ♦ B 

MIMMK  = (G  • (H  - E))  / ( (H  ♦ ♦ 2)  ♦ (G  • ♦ 2)) 

CSO  = (((E  * H ♦ (G  •*  2))  / ((H  **  2)  ♦ (G  ♦♦  2)))  •*  2)  ♦ HIMMK 
1 2 
C = A t EIN 
0 = - A • B 
U = 0 / 45. 

V = ((20.  * C ♦ D ♦ i:,  • 0)  * (15.  ♦ (C  * ♦ 2)  - 15.  • (0  » • 2) 

!♦  61.  * C ♦ Gw.)  ♦ (3v.  • C ♦ 0 ♦ 65.  » D)  • ( -■  10.  • (C  • • 2)  ♦ 

2 10.  ♦ (0  ♦ * 2)  - 15.  • C ♦ 20.))  / ((15.  ♦ (C  • • 2)  - 15.  • (0 

3*  • 2)  ♦ 60.  * C ♦ 60.)  •♦2V  (30.  • C • 0 ♦ 60.  ♦ 0)  ♦ ♦ 2) 

M = ((12,  • C * 0 - 18,  * C)  • (15.  * (C  * • 2)  - 15.  • (0  • • 2) 

!♦  60.  ♦ C ♦ 60.)  ♦ (3  . * C • D V 65.  * 0)  ♦ ( - 6.  • (C  ♦ ♦ 2)  ♦ 

26.  ♦ (0  • ♦ 2)  ♦ 18.  ♦ C - 12.))  / ((15.  * (C  • • 2)  - 15.  ♦ (D  • 
3*  2)  ♦ 60,  • C ♦ 6i.)  * ♦ 2 ♦ (30.  • C • C ♦ oC.  ♦ 0)  * * 2) 

Y = (C  • (30.  • C V 45.)  - 30.  • 0 ♦ (C  - 1.))  / ((30.  • C ♦ 45.) 
!•  • 2 ♦ (30.  ♦ 0)  ♦ * 2) 

CFPT  S3.  *UV3.  •WVE,  •Y 

CTPT  s S,  ♦ V 

RETURN 

END 
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SUBROUTINE  CRAMP  (F,  A,  B,  Ct  0» 


THIS  SUJROUTlNc  GiTS  THE  COEFFICIENTS  A AND  T IN  A*<H**8»  AND 
C ANO  0 IN  F(  ^ F-rEUUENCY,  F,  BELCH  GHZf  FOLLOHING 

CFANE,  R.K.  , MICkCWAj/:  SCATTERING  PARAMETERS  FOR  NEW  ENGLANO  RAIN, 
MIT  LlflCOLN  LABCRATORT'S  REPORT  R TR.  ‘•Zt  , AO  OCT.  19cE. 

A ANJ  B ARE  COE  FFICI-;i  TS  USED  IN  COMPUTING  THE  RAIN  ATTENUATION 
CCEFICIENT,  C AMO  0 A- E COEFFICIENTS  USED  IN  COMPUTING  THE  RAIN 
REFLECTIVITY  PEi^  UNIT  VOLUME.  M IS  THE  LIOUIO  HATER  CONTENT  IN 
G/M**3.  THE  SUBRCUTI'iP  USES  THE  APPROXIMATE  F SQUARED  ABSORPTION 
CEFENCFNCY, 


XI  s X3  = 0.1  el 

XZ  = Xh  = l.C  I 

I 

OBTAIN  COEFFICIENTS  FtR  CALCULATION  OF  RAIN  ATTENUATION  PER  UNIT 
LENGTH. 


IF 

(F 

.LT. 

1. 

Z9> 

GO 

TO 

16.- 

IF 

(F 

. L T . 

2. 

8) 

GO 

TO 

ICC 

IF 

(F 

.LT. 

e. 

0) 

GO 

TO 

12E 

IF 

(F 

.LT. 

9. 

35) 

GO 

Tc 

is: 

IF 

(F 

.LT. 

15 

.51 

GO 

TO 

135 

IF 

(F 

. L T • 

36 

.0  ) 

GO 

TC 

14. 

IF 

(F 

.LT. 

70 

. }) 

GO 

TO 

143 

IF 

(F 

.LT. 

94 

.0) 

GC 

TP 

is; 

PRINT  laOZ 
Y1  = l.ME-A 
YZ  = 1.3E-3 
Y3  = 9,lE-4 
Y4  = 1.D5E-Z 
FI  = 1,29 
F2  = Z. 3 
GO  TO  155 
Y1  = 9.1E-L 
YZ  = 1.05E-2 
Y3  = 1.3E-2 
YA  = 0,18 
FI  = Z,8 
FZ  = 8.1 
GO  TO  155 
Y1  = 1.3E-Z 
YZ  = 0,18 
Y3  = 2.0E-2 
Y4  = 0.32 
FI  = 8.0 
FZ  = 9.35 
GO  TO  155 
Y1  = 2.1E-2 
YZ  = 0.32 
Y3  = 6.1E-2 
Y4  = 1.3 
FI  = 9.35 
FZ  = 15.5 
60  TO  155 
Yl  = c.lE-Z 
YZ  = 1,3 
Y3  = 0.4l 
V4  = 5.8 
FI  = 15,5 
FZ  = 35.0 
GO  TO  155 
Yl  = t.41 
YZ  = 5.8 


,1 
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Y3  = !.■ 

Yi*  = i:.i 

FI  = 2'.J 

FZ  = 7'  . j 

GO  TO 

150  Y1  = l.C 

Y2  = i:.i 

Y3  = i.t»: 

YU  3 12.0 

FI  = 70.; 

F2  = 94.0 

155  31  = ALOG  / Yl)  / ALOG  (X2  / Xl» 

A1  = Y1  / <X1  ♦ ♦ 31» 

62  = ALCG  <YU  / Y3»  / ALOG  (XU  / X3) 

A2  = Y3  / (X3  ♦ ♦ 32) 

A = (J(F  • F - FI  * Fl)  • (A2  - All)  / IF2  ♦ F2  - FI  ♦ FD)  ♦ At 
B = «(F2  - F)  / (F2  - FD)  • Bl  ♦ C (F  - FI)  / (F2  - FD)  • 02 
GO  TO  165 

160  A = 0. 0 00973  ♦ F * F 
8 = 1.-' 

OBTAIN  COF-FFICIcNTS  FO^  COMPUTING  RAIN  REFLECTIVITY  FER  UNIT 
VOLUME. 

165  IF  <F  .LT.  1.29)  GO  TO  21? 

IF  (F  .LT.  2.6)  GO  TO  17: 

IF  (F  .LT.  3.0  GO  TO  175 
IF  (F  .LT.  9.35)  GO  TO  181 
IF  (F  .LT.  15.5)  GO  TO  185 
IF  (F  .LT.  35. j)  GO  TO  19: 

IF  (F  .LT.  73.0)  GO  TC  195 
IF  (F  .LT.  94.0)  GO  TO  2C; 

170  Yl  = 533.0 
Y2  = 2.1E+4 
Y3  = 600.3 
Y4  = 2.3EF4 
FI  = 1.29 
F2  = 2.80 
GO  TO  235 

175  Yl  = 6C3.3 
Y2  = 2.3E+4 
Y3  = 690.0 
Y4  = 2.5E+4 
FI  = 2.3 
F2  = 6.0 
GO  TO  205 

180  Yl  = 690.0 
Y2  = 2.5E+4 
Y3  = 613.0 
Y4  = 2.1E44 
FI  = 3.0 
F2  = 9.35 
GO  TO  235 

185  Yl  = 610.0 
Y2  s 2.1E44 
Y3  = 1003.0 
Y4  = 3.3E*4 
FI  = 9.35 
F2  = 15.5 
GO  TO  2J5 

190  Yl  = 1030.0 
Y2  = 3.3£*4 
Y3  = 993.0 
Y4  = 1,2E*4 


195 


2J0 


225 


FI 

F2 

GO 

n 

Y2 
Y3 
V<» 
FI 
F2 
GO 
VI 
Y2 
Y3 
V4 
FI 
F2 
01 
Cl 
02 
C2 
C = 


= 1-^.5 
= 35.0 
TO  205 
= 390. ■) 

= 1.2t»4 
= 170.0 
= 910. C 
= 35.: 

= 70.2 
TO  205 
= 170,0 
= 910.0 
= 51.0 
= 2b0.0 
= 70.0 
= 94.0 
= flLOG 
= Y1  / 

= ALOG 
= Y3  / 

( ((F 


(Y2 

(XI 

tY4 

(X3 


Yl)  / 

♦ LH 
Y3»  / 

* 02» 


ALOG  (X2  / XI) 


ALQG  1X4  / X3) 


210 

1500 

1502 

22C 


L - ((F2  - 
GO  TO  220 
PRINT  1530 

FORMAT  (IX, •FREQUENCY 
FORMAT  (IX, ♦FREQUENCY 
RETURN 
END 


F - FI  ♦ FI)  * (C2  - 
F)  / (F2  - FD)  ♦ 01 


CD)  / 
♦ ( (F  - 


(F2  • F2  - FI  * FD)  ♦ 
FD  / (F2  - FD)  * 02 


TOC 

TOO 


LOW  FOR  REFLECTIVITY*) 
HIGH*) 
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SU3<JIITIN£  SFCG(TA,  RtH,  PK,  HGT,  2H,  PC  t EMZ 


:mz2»  t» 


n 


This  SU3C0UTIN?  CflUCUlATfS  THE  LIQUID  WAT‘F  CCUTENT  IN  A RAIN- 
STORM. DETAILS  ARi  IN  A T c TEOROLOGICAL  MGLtL  FOR  USE  IN  THF  STUCV 
OF  RAINFALL  EFFECTS  0:  ATt^OSPMERIC  RAOIU  Tt  LECOMi  UNICATIONS . RY 
E.J.  JUTTON,  OFFICE  OF  TE LECOMMUNIC A T IONS  RFFORT  OT/TRF:?  2<., 
DEC:m8ER,  1971, 

INPUT 

HGTsSTORM  TCP  HEIGHT  I J KILOMETERS. 

PSsSUPFACE  PFESSURE  in  MILLI3ARS, 

REH=3URFACE  RELATIVE  HUMIDITY  AS  A DECIMAL  FRACTION. 
r;  = surface  rainfall  rme  in  mm/hr. 

TA=3URFACE  TEMPERATUR  IN  DEGREES  KELVIN. 

ZH=H£IGHT  above  earths  surface  in  KILOMETERS. 

OUTPUT 

EMZ1=C0NTRI9UTI0N  IN  0/M(3>  OF  CONVECTIVE  RAINSTORMS  TO  LIQUID 
NATER  CONTENT. 

EMZ2=CONTRI0UTION  in  G/MJ3)  OF  STRATIFORM  RAINSTORMS  TO  LIQUID 
NATER  CONTENT. 


NOTE  - SU3R0UTINZ  SFCG  USES  FUNCTION  ESU6S. 

REAL  L 

EVALUATE  THE  LICUIO  WATER  CONTENTS,  EMZl,  OF  A CONVECTIVE  STORM. 

SEE,  ESTIMATION  OF  RADIO  RAY  ATTENUATION  IN  CONVECTIVE  RAINFALLS, 

BY  E.J.  OUTTON,  JOURNAL  OF  APPLIED  METEOROLOGY,  VOL.  6,  AUG.  1967, 

PP.  662-666. 

Z = ICOO.  ♦ ZH 
HIT  = 1103.  • HGT 
Cl  = 1,9331 
C2  - 1.5625 

TO  = TA  / (1,  - l,659<»e-4  ♦ TA  • ALOG  (REHn 
L = <123.  ♦ .227  • (TD  - 273.161)  • (TA  - TO) 

HTE  = ((R3  / Cl)  • ♦ (1.  / C2))  ♦ <2.  ♦ L / 1352. u) 

IF  KZ  / 1652.0)  .LT.  HTE)  60  TO  105 
EMZl  = 0.0 
GO  TO  115 

105  PR  = Cl  * (<(HTE  -CL  7 1852.3))  - A3S  ((Z  - L)  / 1852.0))  • • C2) 

BZ  = 8.2  * (RR  * • ( - .21) ) 

EMZl  = 64.  ♦ 3,1415927  • (BZ  • • ( - 4) ) 

COMPUTE  STRATIFORM  RAIN  LIQUID  CONTENTS, EMZ2,  BELOW  THE  STORM 
CLOUD  BASE, 

115  B = 3.2  ♦ (RC  ♦ • ( - .21)) 

EML  = 6h.  * 3.1415927  * (6  ♦ • ( - 4))  | 

IF(Z.GT.L)  GC  TO  125  t 

EMZ2  = EML  d 

T s TA  - Z ♦ 9.3E-3  j 

60  TO  135  I 


I 


C COMPUTE  EMZ2  WITHIN  THE  STORM  CLOUO. 

C 

125  TL  = TA  - L • 9.aE-3 
£ » ESU3S  (TLJ 

P = PR  * EXP  1(900.62  / 2S7:4.)  * ( - L»  • (2.  / ITA  ♦ Tt)»l 
W = (c  • .622)  / P 

TS  = 9.dE-3  • ((1.  ♦ (W  * 597,3  / (TL  • 6.e557E-2)))  / (1.  ♦ ((N  • 
1 22.iqi£-*)  / (TL  • TL  • 1 . 6<.537E-2) )) ) 

T = TA  - L * 9.8E-3  - (Z  - L»  ♦ TS 
tXZ  = EXP  ( - .Cfa^  • TS  • (Z  - L)> 

EXH  = EXP  ( - .06U  • -^S  * (HIT  - L»( 

TBZ  = TL  - .5  • TS  • (Z  - LI 

TBH  = TL  - .6  • TS  • (HIT  - L> 

R = 2.8704E-3 
R1  = 2.a734Ei» 

GAMZ  = ((.622  • E / (i;  * TaZII  * (EXZ  - 1.)  - (.622  • 960.62  • E / 

1 (.e64  • TS  ♦ R • R1  • T8Z  ♦ T8ZI)  * (EXZ  - 1.1) 

GAMH  = ((,622  • E / (P  • TSHI)  • (EXH  - 1.)  - (.622  * 9SC.62  ♦ E / 

1 (.064  • TS  * R ♦ PI  » TBH  ♦ TBHI)  • (EXH  - 1,1) 

EMZ2  = £ML  * (1,3  - (GAHZ  / GAMH) I 
IF(E'l22.LT.a,L)  EMZ2  - 
135  CONTINUE 
RETURN 
END 
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SUBSiOUTINE  PR0M0tHA\/Et0,N,TAU031»RevTAUtRELltHT0P» 

. . .THI5  SUBROUTINE  PEPFO^MS  THt  HOOIFICATION  CF  ATTENUATION  OF  MICRO- 
MAWI  TERRESTRIAL  LINKS  FOF  METHOOS  1 ANO  ct  DESCRIBED  IN  THE  MAIN 
PROGRAM. 

INPUT 

WAVE  - CARRIER  WAV-' LENGTH  IN  CM. 

0  - PATH  LENGTH  IN  KM, 

N - INTEGER  CORRESFONOINU  TO  METhOL  1 OR  2. 

HTOP  - STORM  TCP  H'lGTH. 

RELI  - PER  CENT  OF  TIME  GIVEN  ATTENUATION  IS  EXPECTED  TO  BE 
EXCEEDED 

TAU03T  - ATTENUATION  ALONG  A LINK  EXPERIENCING  HOMOGENOUS 

rainfall. 


...OUTPUT 

REVTAU  - ACTUAL  PR-'OICTEO  PATH  ATTENUATION  DUE  TO  RAIN, 

DIMENSION  RELIT(12»,  6MTAUI12I,  TAUDBTdZ),  P.EVTAU(12),  RELII12) 

DIMENSION  HT0P(12I 

F=23.3733/MAVE 

RFSQ=F*F/225.0 

DO  10  1=1,12 

IF(TAUDBHI)  .N£.  0.0>  CO  TO  1 
EMTAU(I»=  1, 

GO  TO  2 

1 ARG=  1699R. 70663  • HTOP(I) 

ARG-  SQRTIARG)/0 

£MTAU(I)=  RFSO  ♦ ARG  • 0 . 987/T AUDBT ( U 
IFIN  ,Ea»  2»  EMTAU<li=  2.  * £MTAUtI> 

2 RELIT(I»=  RELKI)  * EmTAU(I) 

10  CONTINUE 

DO  20  1=1,12 

IF(RELIT(I>  .LT.  RELKD)  GO  TO  8 
EMTAU(I)s  1.0 
REVTAU<II«TAUOBT(II 
V GO  TO  20 

8 REVTAU(II=  EXTEPPI12,E£LI(I», RELIT, TAUOBT) 

20  CONTINUE 
RETURN 
End 


SUB»OUTINt  WATfcP(T,  o»  RHO,  MAVEt  RN,  GAMAR,  GAMANR,  PHH) 

THIS  SUBROUTINE  CALCULATES  ATMOSPHERIC  ABSORPTION  PER  UNIT  LENGTH 
DUE  TO  ATMOSPHERIC  MATER  VAPOR  FOR  FREQUENCIES  ROUGHLYIN  THE  CANGE 
5-7:  GH7.  USES  VAN  VL"CK  FORMULATION  (SEE  RADIO  METEOROLOGYt  PG. 
272)  . 

INPUT 
C 

C T=TEMPERATURE  IN  CEGREES  KELVIN,  AT  LOCATION  ON  TRANSMISSION 
C PATH  OF  INTEREST, 

C 

C P = PR£SSURE  IN  MILLIBA>^S,  AT  LOCATION  ON  TCANSHISSION  PATH  OF 

C INTEREST. 

C 

C RHO=ATMOSPHERIC  HATER  VAPOR  DENSITY  IN  G/H(3> , AT  LOCATION  ON 

C TRANSMISSION  PATH  OF  INTEFEST. 

C 

C HAVE=HAVELENGTH  IN  CENTIMETERS. 

C 

C OUTPUT 

C 

C HN=RECIPROCAL  OF  WAVELENGTH. 

C 

C GAMAR=CONTRIBUTION  OF  HATER  RESONANCE  LINE, 

C 

C GAMANRrNON-RESONANT  CONTRIBUTION  TO  HATER  VAPOR  ABSORPTION  IN 

C DB/KM. 

C 

C PHMrPHASE  DISPERSION  IN  P.AOIANS/KM,  SEE,  CALCULATED  TROPOSPHERIC 

C DISPERSION  AND  ABSORPTION  DUE  TO  THE  22  GHZ.  WATER  VAPOR  LINE, 

C BY  H.  J,  LIEBE,  IEEE  TRANSACTIONS  ON  ANTENNAS  AND  PROPAGATION, 

C VOL.  AP-17,  NO,  5,  SEPT.  1969. 

C 

Cl  2 0.30361 
C2  = 0.06009 
B s 0.00700 
HNR  = j.7ifl7 
MN  = l.C  / NAVE 
F s 29.9793  / HAVE 
FO  = 22.23515 
OF  = FO  - F 

A s 0.aa!f70  ♦ (P  / 1013.25) 

X * 310.0  / T 

0 * A • (1.0  ♦ B * RHC)  * (X  • • 0.625) 

FORMM  = (HN  - HNR)  ♦•2*0**2 

FORMM  = 1.0  / FORMM 

FORMP  = (HN  ♦ HNR)  **Z*0**Z 

FORMP  s 1.0  / FORMP 

FORM  s D ♦ (FORMM  ♦ FORMP) 

TT  * (X  • • 2.5)  • EXF(-6i.i».0  • (1.0  / T - 1.0  / 310.0)) 

YR  = Cl  * TT  ♦ FORM  • (HN  * *2) 

YNR  = C2  • 0 • X * (HN  • • 2) 

GAMAR  = YR  • RHO  * 

GAHANR  3 YNR  * RHO 

GGsO.Cia6023*RHO*0.0020129*(P-RHO*T/216.60)«( (300.0/T)*«0.63) 
PHMs(4,i916se-2)*f*'),iioi323DF/(OF*OF*GG*GG) 

RETURN 

END 


j 

i 


1 
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[ I SUB-eOUTIN€  0XVGEN(T,7,RH0«PLAH0AtRHAVtGAHAU) 


THIS  SUBROUTINE  CALCULATES  ATMOSPHERIC  ABSORPTION  PER  UNIT  LENGTH 
DUE  TO  ATMOSPHERIC  OXYGEN  FOR  FREQUENCIES  ROUGHLY  IN  THE  RANGE 

GHZ.  USE?  VAN  VLtCK  FORMULATION  (SEE  RADIO  METEOROLOGY,  FAGE 

272)  . 

INPUT 

FLAMOAsWAVELtNGTH  IN  CENTIMETERS. 

RsPRESS’JRE  IN  MILLUAfS  AT  LOCATION  ON  TRANSMISSION  PATH  OF 
INTEREST.  I 

RHO=ATMDSPHERIC  HATER  VAPOR  DENSITY  IN  G/M(3),  AT  LOCATION  ON 
TRANSMISSION  PATH  OF  INTEREST. 

T=TEMPERATURE  IN  OEGRf ES  KELVIN,  AT  LOCATION  ON  TRANSMISSION  PATH 


o u u o o o u u o u o u u o o o u o u u uuu 


SUB'tOUTINE  ATC0SIFR,T,P,RH,HT0P»PR0Bt8ETA,R,ATEtWAV) 


THIS  SUBROUTINE  DETERMINES  THE  TOTAL  ATMOSPHERIC  ATTENUATION  PEP 
UNIT  LENGTH 

....INPUT 

PR  - FREQUENCY  IN  GHZ. 

T - AVERAGE  TEMPERATURE  IN  DEGREES  CENTIGRADE 

P - AVERAGE  PRESSU-i 

RH  - AVERAGE  RELATIVE  HUMIDITY 

HTOP  - STORM  TOP  HEIGHT 

BETA  - RATIO  OF  THUNDERSTORM  RAIN  TO  NON-THUNDERSTORM  RAIN 
HAV  - CARRIER  WAVELENGTH  IN  CM. 

PROa  - PERCENT  OF  TIME  FOR  WHICH  RESULTS  ARE  DESIRED 
R - RAINRATE  COPRESPONOING  TO  PROS 

....OUTPUT 

ATE  - TOTAL  ATMOSPHERIC  ATTENUATION  PER  UNIT  LENGTH  IN  OB/KM 

PI=  4.  • ATANll.O) 

TK=T*273.16 

CALL  RATTCO(HAVtTK.P.RH,HTOP«Q.2«R, AT.PROb.BETA.SCAT.PHIRR) 
SRH0=216.6e*ESU8S(TK)*RH/TK 

IFJFR  ,LE.  45.0  CALL  OXYGEN(TK,P,SRHO.HAV,RWAV,OXAT) 

IFIFR  .GT.  45.0  CALL  TOPOXYCTKtP.NAV.l ,OXAT tSRHO«GAMAUP) 

CALL  HATERCTKtP.SRHOf WAV«WN«NATltHAT2.PHN) 

....DETERMINE  ATE 

200  ATE=2.0*AT+OXAT*HAT1+WAT2 

CALL  REFRACC4«3.6.T.P,RH,ENS«00«HO) 

PHIRD=PHIRR*PHH 

PHIT=<2.0E+5*PI/MAV)*(1.0»1.CE-6*ENS)*PHIRC 

RETURN 

END 


i 


» 

( 
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SUBROUTINE  RAINRT(RO,vSS,RB) 

THIS  SUBROUTINE  MOOIFIES  THE  RAIN  RATE  IN  ACCORDANCE  WITH  THE 
PROCEDURE  OF  BARSIS  ET  AL,  11973). 

INPUT 

RC  - UNHODIFIED  IPOINT)  RAIN  RATE  IN  iH/HR. 

RSS  - PATH  LENGTH  IN  KM. 

OUTPUT 


R3  - MOOIFIEO  (PATH)  RAIN  RATE  IN  MM/HR. 

DIMENSION  RAT(3)tPL(3) 

DATA  PL(1) ,PL(2) «PL(3) / 3..  10..  22./ 
IF(RQ.LE. 10. 0)223, 233 
225  RT9=1.: 

60  TO  25j 

230  RAT  (1)  = -.09376754672*ALOG(RO)«’1.209 
RAT(2)=-.188918C996*ALOG(RO)*1.435 
IF(R3.GT.2S.C)233,240 

235  RAT (3)=-. 1387074521*ALOG(R0)*l. 036771423 
GO  TO  245 

240  RAT ( 3) =-. 395954 06 3f*ALOG(RO) ♦1.911717924 
245  RSSS=  RSS 

IFIR3SS.GT.22.0)  PS5S  = 22.': 
RTB=TERP(3,RSSS,PL,RAT) 

250  RB=RTB*RC 
RETURN 
END 
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SUBi^OUTINE  TOFOXY  (TtP»PLAMDA,L tGAMAUt  ARROW, GA*1AUP) 


>.  I 

‘ I 


THIS  SUBROUTINE  CALCULATES  ATMOSPHERIC  ABSORPTION  PER  UNIT  LENGTH 
DUE  TC  ATMOSPHERIC  OXYGEN  FOR  FREQUENCIES  ROUGHLY  IN  THE  RANGE 
<»5-70  GHZ.  SEE,  AS  AN  XAMPLE,  FALCONE,  V.J.,  ATMOSPHERIC 
ATTENUATION  OF  MICROWAVE  FOWER,  J.  MICROWAVE  POWER  (CANADA),  VOL. 5 
NC.*.,  DEC)  1B70,  PP. 269-278. 

.....INPUT 

TsTEMPERATURE  IN  DEGREES  KELVIN. 

P=PRESSURE  IN  millibars. 

FLAMOAsWAVELENGTH  IN  CENTIMETERS. 

L=ACCOUNTED  FOR  IN  0EGP77. 

ARROW=ATMOSPHERIC  WATER  VAPOR  DENSITY  ON  TRANSMISSION  PATH  OF 
INTEREST. 

OUTPUT 


■ >1 


GAMAU=OXYGEN  ABSORPTION  COEFFICIENT  IN  OB/KM. 


GAMAUPsPHASE  DISPERSION  DUE  TO  OXYGEN  IN  RAOIANS/KM, 


COMMON  /BLOCK2  /PMUPL  (Lg),  PMUM  (49),  PMUNOT  (49),  RSRLNl  (49),  R 
1SRLN2  (49) 

REAL  L3 

VP  = T * ARROW  / 216.68 

1F(L.EQ.2)  GO  TO  ICB 

XI  = .C21333 

X2  = .04523 

X3  * .36748 

X4  = .C27351 

L3  = ALOG  (X3) 

DXDLOG  = (X2  - XI)  / (ALOG  (X4)  - L3) 

105  RLMOA  = i.d/  PLAHQA 
BB  = 2.J63666C98  / T 
SUM  = 0.0 
SUMP  = 0.0 
FEE  = 0.0 
NN  s 49 

X = (P  ♦ VP)  / 1013.25 
IF  (X  .GT.  X3)  GO  TO  IIC 
IF  (X  .LT.  X4)  GO  TO  115 

OLTl  = 0LT2  = XI  ♦ OXOLOG  • (ALOG  (X)  - L3) 

GO  TO  120 

110  OLTl  = 0LT2  = XI 
60  TO  120 

115  DLTl  = 0LT2  = X2 
GO  TO  120 

120  OLTl  = OLTl  * (300,  / T)  • X 
OLT2  = 0LT2  • (300*  / T)  • X 
OLTNUA  = 0.5  • (OLTl  ♦ OLT2) 

IF(L.EQ.2)  GO  TO  135 
OO  13C  K - 1,  NN,  2 
PK  = K 

CALCULATION  OF  PMUPL,  ANC  PMUM,  THE  SQUARES  OF  THE  MAGNETIC  OIPOLE 
MOMENTS  OF  THE  OXYGEN  MOLECULE  FOR  CERTIAN  PERMISSIBLE  QUANTUM 


! 

) 

5 
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MECHANICAL  TRANSITIONC.  ( SEE  FALCONE,  197C) 

PMUPL  IKI  s PK  ♦ (2.  * PK  ♦ 3.1  / (PK  ♦ 1.) 

PMUH  (K)  = (PK  ♦ 1.)  • (2.  ♦ PK  - 1.1  / PK 

CALCULATION  OF  PMUNOT,  THE  SQUARE  OF  THE  MAGNETIC  DIPOLE  MOMENT  OF 
THE  OXYGEN  MOLECULE  WHOSE  RESONANCE  FREQUENCY  IS  ZERO  (DIAGONAL 
ELEMENTS  OF  THE  MAGNE1  IC  MOMENT  OF  THE  OXYGEN  MOLECULE).  (SEE 
FALCONE  (1970) 

PMUNOT  (K)  = (PK  ♦ PK  ♦ PK  ♦ 1.0)  / (PK  ♦ (PK  ♦ 1.0)) 

130  PMUNOT  (K)  = PMUNOT  (K)  » (2.  • PK  ♦ 1.)  ♦ 2. 

CALL  FREQ 

00  14C  K s 1,  NN,  2 
PK  = K 

FAC  = EXP  ( - BB  ♦ PK  * (PK  ♦ 1.)) 

CALL  FARM  (OLTl,  RSRLNl  (K) , RLMOA,  AA,  AAP) 

CALL  farm  (0LT2,  RSRLN2  (K) , RLMOA,  AB,  ABP) 

CALL  farm  (OLTNUA,  FEE,  RLMOA,  AC,  ACP) 

AC  = AC  ♦ 0.5 

TERM  = (AA  ♦ PMUPL  (K)  ♦ A3  * PMUM  (K)  ♦ AC  ♦ PMUNOT  (K) ) • FAC 
TERMP  = (AAP  * PMUPL  ( K>  ♦ ABP  ♦ PMUH  (K)  ♦ ACP  * PMUNOT  (K))  * FA 
1C 

SUM  s SUM  ♦ TERM 
SUMP  = SUMP  ♦ TERMP 
CONTINUE 

DETERMINATION  OF  THE  OXYGEN  ABSORPTION  COEFFIENT,  GAMAU  ANC 
GAMAUF,  THE  PHASE  DISPERSION  DUE  TO  OXYGEN. 

GAMAU  = SUM  ♦ 59.H681328  * P / (T  * T ♦ T) 

GAMAU  = GAMAU  / (PLAMOA  * PLAMDA) 

GAMAUP  = SUMP  * 6.846527564  • P / IT  » T * T) 

GAMAUP  = GAMAUP  / (PLAMDA  * PLAMDA) 

RETURN 
END 


60 


nooo  noooon  o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o 
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SUBROUTINE  RATTCO<MAt/r ,TA,PREtR£L»HITE,ZHH,RC,AT,RELYtBETA,SCATR, 

1 PHIR) 

THIS  SUBROUTINE  CALCULATES  RAIN  ATTENUATION,  PROVIDED  AN 
AIR/GROUND  PATH  IS  US"0  FROM  SURFACE  METEOROLOGICAL  DATA  ANO 
RELIABILITY  REQUIREMENTS. 

.INPUT 

nave=wavelength  in  centimeters. 

TA=SURFACe  TEMPERATURE  IN  DEGREES  KELVIN. 

PRE=SURFACE  PRESSURE  IN  MILLIBARS. 

i 

REL=SURFACE  RELATIVE  HUMIDITY  AS  A DECIMAL  FRACTION. 

hite=;:torm  top  height  in  kilometers.  ^ 

ZHHsHEIGHT  ABOVE  EARTHS  SURFACE  IN  KILOMETERS.  J 

RO=SURFACE  RAINFALL  RATE  IN  MILLIMETERS  PER  HOUR. 

.RELY=PERCENT  OF  AN  AV'^RAGE  YEAR.  ; 

•( 

BETAsRATIO  OF  THUNOERSTCRM  RAIN  TO  NON-THUNDERSTORM  RAIN  (SEE 
EARLIER  REFERENCE  IN  TEST30). 

.OUTPUT 

SCATRsRAINFALL  REFLECTIVITY  IN  KM(-l). 

PHIR=PHASE  DELAY  PER  UNIT  LENGTH  DUE  TO  RAIN,  IN  P,AOIANS/KM. 

ATsATTENUATION  COEFFICIENT  DUE  TO  RAIN  IN  D8/KM. 

DIMENSION  PF  (3),  FACT  (3) 

DATA  (PF  = 0.01,  0.1,  1.0)  i 

IF(R0  .NE.  C.O)  GO  TO  1 1 

SCATR*  0.0  i 

PHIR=  0.0  i 

Ar~  3.0  j 

RETURN 


OBTAIN  APPROPRIATE  LIQUID  WATER  CONTENTS,  EMZl  AND  EMZ2,  COEF- 
FICIENTS A,  B,  Al,  91  FOR  THEIR  CONVERSION  TO  REFLECTIVITY,  ANO 
MATER  DIELECTRIC  COEFFICIENTS,  CC  ANO  DO. 

1 FR=  29.9793/MAVE 

CALL  SFCG(TA,  REL,  PRt , HITE,  ZHH,  RO,  EMZl,  EMZ2,  UNH) 

CALL  CRANE  (FR,  A,  B,  Al,  Bll 
TAC  * TA  - 2Z3.16 

CALL  CMPLXN  (NAVE,  TAC,  CSQ,  HINHK,  CFPT,  CTPT,  CC,  DO) 

OBTAIN  AN  EMPERICAL  FACTOR,  FAC,  FOR  CONVERSION  OF  RAYLEIGH 
PREDICTED  PHASE  DELAY  IN  THE  HIE  REGION. 

FP  X J. 02597(1  • FR  - C. 53135 
< IF  (FR  .LE,  19.31)  FP  » 0.0 

FQ  X o.oiLaaeaaaB  « fr  - o.loz 

IF  (FR  .LE.  27.0)  FP  = O.C 
FACT  (1)  X i.c  ♦ FP 
FACT  (2)  X 1.0  ♦ FQ 


o o o o o 


FACT  (3)  = 1.0 

FAC  = T£RP  (3,  R£LY.  FACT) 

IF  (ReLY  .GT.  1.:)  FAC  = 1,: 

CALCULATE  PHASE  DELAYS  ANC  ATTENUATION!  REFLECTIVITY  3Y  USING 
APPROPRIATE  COllOINATICNS  CF  STRATIFORM  RAIN,  EHZl,  AND  CONVECTIVE 
RAIN,EMZ2. 

U = c.i  ♦ 3.1415927  / HAVE)  ♦ (FAC  ♦ ((CC  - 1.)  ♦ (CC  ♦ 2.)  ♦ CD 
1*  00))  / ((CC  ♦ 2.)  • (CC  ♦ 2.)  ♦ 00  • 00) 

PHIR  = U • EMZl 
AT  = A * (EMZl  • ♦ 8) 

IF  ((AB3  (RELY  - 0.1))  .LT.  0.01)  AT  = 6ETA  » A * (EMZl  * ♦ B)  ♦ 
1(1.  - BETA)  ♦A  * (£>Z2  ♦ * B) 

IF  ((ABS  (RELY  - :.!))  .LT.  O.fl)  PHIR  = SETA  ♦ U • EMZl  ♦ (1.  - 
lETA)  • U * EMZ2 

IF  ((RELY  - 0.1)  .G£.  3.01)  AT  = A * (EMZ2  * * B) 

IF  ((RELY  - 0.1)  .GE.  C.Ol)  PHIR  = U ♦ EMZ2 

C = (2.E-7  / 3.)  * (3'6. 01812)  • CSQ  / (WAVE  ♦ ♦ 4) 

X = C * A1  ♦ (EMZl  • • Bl) 

Y = C ♦ A1  ♦ (EMZ2  • ♦ Bl) 

E = 0.84  • Bl 
SCATR  = Y 
103  RETURN 
END 
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iUOfOUTINt  REFRAC  (KT,  KP,  KH,  Ti,  PR,  HU,  £N,  0,  H) 

THi:  SU3R0UTINE  CALCUL ATEc  THE  RiFRACTIVITV  (REFRACTIVE  INCEXI  AT 
SPECIFIC  LOCATIONS  (HIGHTSI  IN  THE  ATMOSPHERE  FOR  VARIOUS  KINDS 
OF  METEOROLOGICAL  INPUT  PARAMETERS. 

.INPUT 

THE  TLMOERATURE,  PRESSURE,  ANO  HUMIDITY  DATA  CAN  EE  INPUT  INTO 
subroutine  REFRAC  TN  A VARIETY  OF  UNITS.  THE  VALUES  OF  KT,  KF, 

ANO  KH  DETERMINE  WHICH  S^T  OF  UNITS  THE  SUBROUTINE  KILL  USE,  THE 
following  IS  A LEGEND  OF  VALUES  FOR  KT , KP,  ANO  KH. 

KT  = 1 TEMPERATURE  TC  RE  SPECIFIED  IN  RANKINE. 

KT  = E TEMPERATURE  TO  3E  SPECIFIED  IN  FAHFENHEIT. 

KT  = 3 TEMPERATURE  TJ  Pf  SPECIFIED  IN  REAUMUR. 

KT  = 4 TEMPERATURE  TC  PE  SPECIFIED  IN  CENTIGRADE. 

KT  = ■:  TEMPERATURE  TC  OE  SPECIFIED  IN  KELVIN. 

KP  = 1 PRESSURE  TO  B'  SPECIFIED  IN  MILLIMETERS  OF  MERCURY. 

KP  = 2 PRESSURE  TC  3‘  SPECIFIEO  IN  INCHES  OF  MERCURY. 

KF  = 3 PRESSURE  TO  3'  SPECIFIED  IN  MILLIBARS. 

KH  = 1 DEW  POINT  TEMPERATURE  TO  BE  SPECIFIED  IN  THE  SAME  UNITS  AS 
USED  WITH  THE  TEMPERATURE,  ACCORDING  TO  THE  VALUE  OF  KT 
ABOVE. 

KH  = 2 WET  BULP  TEMP'.  RATURE  TO  BE  SPECIFIED  ItJ  THE  SAME  UNITS  AS 
USED  WITH  the  TEMPERATURE,  ACCOPOING  TO  THE  VALUE  OF  KT 
ABOVE. 

KH  = 3 SPECIFIC  HUMIDITY  TO  BE  SPECIFIED  IN  GRAMS  PER  KILOGRAM. 

KH  = 4 MIXING  RATIO  TO  BE  SPECIFIED  IN  GRAMS  PER  KILOGRAM. 

KH  = 5 WATER  VAPOR  0- NSITV  TO  BE  SPECIFIED  IN  GRAMS  PER  METEP 
CUBED. 

KH  = 6 RELATIVE  HUMIDITY  TO  BE  SPECIFIED  AS  A DECIMAL  FRACTION. 

KH  = 7 VAPOR  PRESSURE  TO  BE  SPECIFIED  IN  UNITS  AS  DETERMINED  BY 

THE  VALUE  CF  yo  ABOVE. 

HU  = HUMIDITY  IN  UNITE  AS  DETERMINED  BY  KH  ABOVE, 

PR  = PRESSURE  IN  UNITS  AS  DETERMINED  BY  KP  ABOVE. 

TM  = TEMPERATURE  IN  UMTS  AS  DETERMINED  BY  KT  ABOVE. 

.OUTPUT 


EN=REFRACTIVITY  IN  N-UNITS  (PARTS  PER  MILLION  OF  REFRACTIVE  INDEX) 
0=DRY  TERM  OF  REFRACTIVITY  IN  N-UNITS. 

M=W£T  TERM  OF  REFRACTIVITY  IN  N-UNITS. 

NOTE  - SUBROUTINE  REFRAC  MUST  BE  USED  WITH  FUNCTION  ESUBS(T). 

T = TM 
P = PR 
H = HU 

GO  TO  (lOOt  iOS,  110,  115,  120),  KT 
T = T - 459.69 

T = ,555555555  * T - 17.7777777 
GO  TO  115 
T = 1.25  * T 
T * T ♦ 273. 

GO  TO  (125,  130,  135),  KP 
P = 25.4  * P 
P = 1.333224  * P 

GO  TO  (143,  140,  175,  IBO,  185,  190,  195),  KH 
GO  TO  (145,  150,  155,  16C,  165),  KT 
H = H - 4^9.69 


ooooo  oooo  oooo 


k 


ise  H * .555555555  • H - 17,7777777 
GP  TO  15U 
155  H = 1.25  • H 
160  H s H ♦ 273. 

165  E > ESU5S  (HI 

IFIKH.EQ.l)  GO  TO  21'’ 


I 


4 


I 


I 

I 

I 


L 4 • 


PSYCHtOMETRlC  FORMULA  , PG.  366  LIST.R.J.  <195a»  SMITHSONIAN 
PETcCROLOGICAL  TAOLES.  (SMITHSONIAN  INSTITUTION  « WASHINGTON  C.C.) 

E » E - (.66E-3  ♦ (1.  ♦ .115E-2  • (H  - 273. )>»  ♦ (T  - HI  • P 

GO  TO  215  H 

175  M » H / (1,  - H • l.E-31  I 

180  h = H • l.E-3  j 

X » T - 273,  I 

GOFF-GRATCH  FOFMULATION  FOR  CORRECTION  FACTOR  FW, 

SEE  PG,  3<*0  SMITHSONIAN  METEOROLOGICAL  TABLES  (1958) 


FH  = 1,)00‘*<*  - X • (.23E-fc  ♦ ,175E-6  ♦ X)  ♦ (.39E-5  ♦ X * (.45E-9 
!•  X - ,265E-7I)  ♦ P 
E = H ♦ P / (FW  * (H  ♦ ,62197)) 

GO  TO  215 

195  E = 4.165013eE-3  ♦ H • T 
GO  TO  215 

190  E s H * ESUBS  (T) 

GO  TO  215 

L95  GO  TO  (230,  205,  2lQ),  KP 
200  H s 25,4  * H 

205  M = 1,333224  • H 

210  E s H 


SMITH-WEINTRAUB  FCRHULATION  FOR  REFRACTIWITY. 
SEE  PG,  7 BEAN  , 3,  R,  ANO  £*  J.  DUTTON  (1966) 
(DOVER  PUBLICATIONS  INC.  NEW  YORK  , N.Y.) 

215  W s 373256.  • E / T ♦ * 2 
D = 77.6  • P / T 
EN  = W ♦ D 
RETURN 
END 
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RADIO  HETEOROLOG 
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SU3KJfTIN£  ERF(X,y,Z) 

THI5  SUBROUTINE  UTILIZES  AN  APPROXIMATION  TO  THE  ERROR  FUNCTION. 
FOR  MORE  INFO.  SEE,  HASTINGS,  C.3.  JR.,  APPROXIMATIONS  FOR 
OIGITAL  computers  <i9EE),  PG.169. 

INPUT 

X-  THE  ARGUMENT  OF  THc  ERROR  FUNCTION 


.OUTPUT 

Y-  THE  YALUE  OF  TH-  ERROR  FUNCTION  FOR  THE  INPUT  X, 

Z-  THE  VALUE  OF  TH-  COMPLEMENTED  ERROR  FUNCTION  FOR  X. 

DATA  Al, A2, A3,AA,AE/  *.225836846,  •3.252128668,  1.25969513, 
1 -1.287822453,  0.94w6<,6e7/ 

IF(A3S(X)  .LT.  l.E-09)  GC  TO  3 

FIND  THE  ERF  FOR  X 

ETA=  l./Cl.  ♦ a,3275311*ASSIX)) 

T£MP=  (A5*ETA  ♦ A4)*;TA  ♦ A3 
TEMP=  (TEMP^ETA  ♦ A2)*ETA  ♦ A1 
TEMP=  TEMP  * ETA 
XSQH=  - X**2, 

IFCXSOM  .LT,  -300.0)  XSOM=  -300,0 
TEMP=  TEMP  ♦ 1.128379167  ♦ EXP(XSQM) 

IF(ABS<TEMP)  .LT.  I.E-IOC)  TEMP=  SIGN  II  .t E-10 0 , TEMP) 

.determine  in  what  interval  the  ARGUMENT  LIES  IN. 

STATEMENT  NUMBER  2 - X LESS  THAN  ZERO. 

STATEMENT  NUMBER  3 - X EQUALS  ZERO. 

STATEMENT  NUMBER  4 - X GREATER  THAN  ZERO. 


IF(X)2,3,4 

2 V=  TEMP  - 1. 
Z=  2.  - TEMP 
RETURN 

3 Y=  3.0 
Z=  1.0 
RETURN 

4 Y=  1,  - TEMP 
Z=  TEMP 
RETURN 

END 


ooooo  oooo  ooooooooo 
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SUBROUTINE  ERFCH  T t XCCND 

THI3  SUBROUTINE  Fl.ilS  THE  INVERSE  OF  THE  CONPLEMENTtO  ERPOR 
function  ev  APPLYI^G  A NEWTON-RAPHSONS  ITERATION, 

» • • , 1 NPUT 

r-  THE  VALUE  OF  TH . COMPLEMENTED  ERROR  FUNCTION 
...OUTPUT 

XCCNF-  THE  ITERATED  RESULT 
XAPPROX=  -0.86622^925'  ♦ <Y  - 1«0) 

THE  ITERATION  IS  DONE  HERE,  AN  ARBITRARY  ERROR  CRITERION  OF 
4.E-36  IS  DEMANOEO  FCR  CONVERGEfJCE. 

3 00  IDOC  1=1,50 
CALL  ERF(XAPPR0X,Y1,YAPRCX) 

F0FX=  Y - YAFROX 
XSQ=  - XAPPROX**2. 

IFCXSQ  .LT.  -3t0.0)  XSQ=  -300.0 
FOFXP=  1.128379167  ♦ EXP(XSO» 

XOLD=  XAPPROX  - (FOFX/FOFXP) 

OELTAX=  ABSTXAPPROX  - XOLOl 
OELTAY=  ABStFOFX) 

TE3T=  AMAXUCtLTAX.D' LTAY) 

IFITEST  .LT.  U.E-.6)  GO  TO  4 
XAPPROXs  XOLD 

00  CONTINUE 

IF  THE  ITERATION  FAILS  AN  ERROR  MESSAGE  IS  PRINTED  AND  THE  LAST 
VALUE  OF  XAPROX  IS  SUBSTITUTEO  IN  FOR  XCONF,  PROCESSING  IS 
THEN  RETURNED  TO  THE  CALLING  PROGRAM,  IN  THIS  CASE  TO  TF.UNCN. 

WRITE <6, 100 l)FOFX,FOFXP,X APPROX, Y 

4 XCONF=  XAPPROX 
RETURN 

1001  F0RMAT(lX,///lX,4fcHN0N-C0NVERGENCE  FOR  ITERATIVE  METHOD  IN  ERFCI./ 
11X,6HF0FX  =,E15.7,10X,7HFOFXP  =,E15,7,lCX,ttHXAPR0X  =,E15.7,10X,3HY 
2 =,E15.7///) 


oououooouoooooaooo  ooo  ooo 


SUBROUTINE  TRUNCN(TN0SVTAU,TAU5tTAU95I 

THIS  SUBROUTINE  USES  fi  TRUNCATED  NORMAL  D1STRI8UTI0N  TO  CALCULATE 
THE  0.5,  5,  95,  AND,  THE  99,5  PER  CENT  CONFIDENCE  LEVELS  OF 
ATTENUATION 

...NOTE  - THE  0.5  AND  99,5  PER  CENT  CONFIDENCE  LEVELS  ARE 
CALCULATED  3UT  f-OT  PASSED  SACK  TO  THE  MAIN  PROGRAM. 


TNCO  - MEAN  PREOICfEO  ATTENUATION  FOR  EACH  METHOD 
VTAU  - VARIANCE  OF  THAT  ATTENUATION 

OUTPUT 

TAU5  - 5 PER  CENT  CONFIDENCE  LEVEL  OF  ATTENUATION  FDR  EACH 
METHOD 

TAU95  - 95  PER  CENT  CONFIDENCE  LEVEL  OF  ATTENUATION  FOR  EACH 
METHOD 

DIMENSION  VTAUIIE,^),  TMOl>(12,A),  TAU5(12,L),  TAU95I12,4) 

00  10:C  METHOO=l,4 
DO  750  1=1,11 

IFCVTAUd, METHOD!  ,NE.  C.OI  GO  TO  1 
SET  CONFIDENCE  LEVELS  OF  ATTENUATION  TO  ZERO  IF  VTAU  IS  ZERO, 
C05=  0.0 

TAU5(I,METH0D>=  O.C 
TAU95 (I,METHOD)=  0.3 
C995=  0.0 
60  TO  750 

DETERMINE  CONFIDENCE  LEVELS  OF  ATTENUATION  IF  VTAU  IS  NON-ZERO 

1 RT2TAU=  SQRT(2.  • VT AU (I, METHOOl > 

X=  TMOO(I,METHOO)/RT2TAU 
CALL  ERF(X,Y,Z) 

V=  2, /II,  ♦ Y) 

X=  1.99/V 

CALL  ERFCHX,XPT5) 

X=  1.9/V 

CALL  ERFCIIX,X5) 

X=  0.1/V 

CALL  ERFCI(X,X95) 

X=  0.01/V 

CALL  ERFCIIX,X99PT5) 

CJ5=  TMODII, METHOOl  ♦ RT2TAU*XPT5 
TAU5(I,METH00)=  TMOD II .METHOD)  ♦ RT2TAU*X5 
TAU95II, METHOD)*  TMOO II .METHOD)  ♦ RT2TAU*X95 
C995=  TMODII.METHOO)  ♦ RT 2T AU*X99PT5 
750  CONTINUE 
1000  CONTINUE 
RETURN 
ENO 
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SU9F(0UTINE  FARM  (OLTNt  Rt'SWAV*  ACTMAtf,  FORMA,  FORHP) 


1 


THIS  ROUTINE  COMPUTES  LTMc  SHAPES  AND  FORMS  ASSOCIATED  WITH  CAL- 
CULATIONS MADE  IN  TOPPXY. 

X = RES»(AW  - ACTNAV 
X2  = X » X 
Y » RES»<AY  ♦ ACTNAV 
Y2  = Y ♦ Y 
D2  = OLTN  • OLTN 
FORMl  = X2  ♦ 02 
FORMl  = 1,  / FOPMl 
F0RM2  = Y2  ♦ 02 
F0RM2  = 1.  / F0PM2 

F0RMP=< J2/ACTMAV*<RESWA\//ACTMAV)*X) •FORMl* (02/ACTHAV* (PESWAV/ACTHA 
1VMY)*F0RM2 

FORMA  s OLTN  ♦ JFORMl  ♦ FCRM2) 

RETURN 

ENC 


SUBROUTINE  FREQ 

THIS  ROUTINE  COMPUTES  LINE  SHAPES  ANO  FORMS  ASSOCIATED  WITH  CAL- 
CULATIONS MADE  IN  TOPOXY. 

NOTE  - SUBROUTINE  FREQ  USES,  FUNCTIONS  RSLMOl  ANO  RSLHD2. 

COMMON  /BL0CK2  /PMUPL  (“Bl,  PHUM  <49) , FMUNOT  (49),  RSRLMl  (49),  R 
1SRLM2  (49) 

PMU  = - 252.72 
CO  125  K = 1,  49,  2 
PK  = K 

IF  (K  - 1)105,  lie,  115 
105  STOP 

110  FACTOR  = - 1.0 
GO  TO  120 
115  FACTOR  a 1.0 
120  CONTINUE 

PLAMOA  a 59501.6  ♦ .3575  • PK  ♦ (PK  ♦ l.C) 

B = 43101.6  - .14  • PK  ♦ (PK  ♦ 1.0) 

RSRLMl  (K)  a RSLMOl  (PK,  PLAMOA,  B,  PMU) 

RSRLM2(K)  a RSLMa2  (PK,  PLAMOA,  B,  PMU,  FACTOR) 

125  CONTINUE 
RETURN 
ENO 
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FUNCTION  ESUeS  (T) 

TH13  EU3F0UT1NE  CALCULATES  SATURATION  ^APOR  FRtSSURt  OF  HATER  IN 
AIR  AT  TEMPtRATURf  T IN  DEGREES  KELVIN. 

X = .15  ♦ (T  - 243.) 

V = 2i:.fc61779  - X • (.336222  - (X  - 1.)  • (.4Ad3£-2  - (X  - 2.J  * ( 
1.14i.6e6t-3  ♦ (X  - 3.)  • .225E-4)n 
ESU3S  = EXP  (Y  - 6r9^.i.37L  / T) 

IF( (T-2A3.) .LE. G.O)  GC  TO  125 

ESU3S  = ESU8S  ♦ (liJ.  - ( T-293. » **2. ) * a.E-6 

RETURN 

END 


FUNCTION  EXTERP  (N,  P.  X,  Y) 

THIS  FUNCTION  DOES  EXPONENTIAL  INTERPOLATION  AMO  EXTRAPOLATION. 

.INPUT 

N=NUM3ER  OF  DATA  POINTS,  tX,Y),  TO  Bt  USED  IN  INTERPOLATION. 

P=X  VALUE  THAT  PRODUCES  INTERPOLATED  Y VALU^. 

DIMENSION  X(75),Y(75I  * 

IF  (N  .LT.  2»  GO  TO  lEC 
DO  1};:  I s 2,  N 
IF((X(I)-P).GE.0.0)  GC  TO  105 
CONTINUE 
CONTINUE 
I * N 

IF((Y(I)  • Y(I  - Dl.GT.a.O)  GO  TO  115 
EXTERP  = (Y(I)-Y(I-1))*(P-X(1-1»»/<X(I)-X(I-1»)*Y(I-1) 

RETURN 

EXTERP  » Y (I  - H • EXP  (ALOC  IV  I I)  / Y (I  - 1))  • (P  - X (1  - 1 
in  / (X  (I)  - X (I  > II n 

RETURN 
END 

A 

x| 

I 
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FUNCTION  RSLMCl  (PK,  FLAMDA,  3,  PMU) 


■i 


THIS  ROUTINE  CO'^PUTES  LINt  SHAPES  ANO  FORMS  ASSOCIATED  WITH  CAL- 
CULATIONS MADE  IN  TOPOXY. 

Y = 3 - PMU  / 2. 

Y1  = (PK  ♦ PK  ♦ 3.)  * Y 

X s PLANOA  - PMU  • (PK  ♦ 1.)  - Yl  ♦ SORT  (FLAMDA  • PLAMOA  - (PLA^D 
lA  ♦ PLAIOA)  • Y ♦ Yl  • Yl) 

P.SLMOl  = X / (2.99793-*i.) 

RETURN 

END 


/ 

FUNCTION  RSLM02(PK»  PLAM3A,  B«  PMU*  FACTOR) 

THIS  ROUTINE  COMPUTES  LINE  SHAPES  AND  FORMS  ASSOCIATED  WITH  CAL- 
CULATIONS MADE  IN  TOPOXY. 

»Y  = 3 - PMU  / 2. 

Yl  = (PK  + PK  - 1.)  ♦ Y 

X = PLAMOA  ♦ PMU  * PK  ♦ Yl  - FACTOR  • SQRT(PLAMDA  * PLAMOA  -(  PLAM 
IDA  ♦ PLAMOA)  * Y ♦ Yl  • Yl) 

RSLM02  = X / (2.99793E*U) 

RETURN 

END 
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FUNCTION  GAMMA«FR£U> 

r 

FP.iQ  IS  FREQUENCY  IN  GH2  BETWEEN  7 GHZ  AND  I'i  GHZ. 

DIMENSION  F (£7>  .GHZ) 

THESE  DATA  ARE  TAKEN  FROM  THE  CCIR  CURVES  OF  ATTENUATION  FER  KM. 

0 AT  A ( I F C L ) f L- 1 » 2 7 ) = 7..  7.3.  7.9.  £.4.  0.8.  9.3.  lo..  1C. 5.  12.. 

1 13..  14..  13..  IE. 4.  17.3.  IS. 3.  2C..  22.3.  26..  29..  32.1. 

2 3E..  41..  32..  33..  70..  78..  100.) 

DATA! (G(L) .L=1.27)=  . CZ.  .7025.  .333.  .OCA.  .0C5,  .0365.  .008. 

1 .j1.  .313.  .32.  .323.  .03.  .04.  .C3.  .06.  .36.  .1.  .13.  .2. 

2 .2*>.  .3.  .4.  .5.  .6.  .S.  1*.  1.0?) 

GAMMA  IS  RAIN  ATTENUATION  COEFFICIENT  AT  FREQ  IN  OB/KM/MM/HR. 

GAMMA=T£RP(28.FREO.F.G) 

RETURN 

FNO 


FUNCTION  TERP  (N.  P.  X.  Y) 

THIS  FUNCTION  DOES  LINEAR  INTERPOLATION  AND  EXTRAPOLATION. 

INPUT 

N=  NUMBER  OF  DATA  POINTS  (X.Y)  TO  BE  USED  IN  INTERPOLATION, 

P=  X VALUE  THAT  PRODUCES  INTERPOLATED  Y VALUE  . 

DIMENSION  X 153).  Y ICC) 

DO  100  I = 2.  N 
IF  (P  - X (I))1C5.  111.  ICO 
100  CONTINUE 
I s N 

105  TERP  = Y (I  - 1)  ♦ <Y  (I)  - Y (I  - 1))  * (P  - X (I  - D)  / (X  (1) 
1-  X (I  - D) 

RETURN 

110  TERP  = Y Cl) 

RETURN 

END 
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SUBROUTINE  TABLUSCXLAT ,XLONtELEVtP«T.RH,EM,0,U,EMAX«IFLAGI 


1 • 


SU3R0UTINE  TABLUS  SPECIFIES  ALL  METEOROLOGICAL  OATA  NEEOEO  FOR 
PROPER  program  execution.  IF  THE  DATA  IS  ALREADY  SPECIFIED 
THIS  IS  GIVEN  PRIO-’ITY  AND  IS  RETAINED.  HOWEVER.  IF  THE  DATA 
IS  UNSPECIFIED  AN  INTERPOLATION  IS  CONE  FOR  THIS  PATA  3Y  MEANS 
OF  I08VIP.  thus,  TA3J.US  IS  THE  HAIN  INTERFACE  TO  lOBVIP  ANC 
DETERMINES  ALL  PARAMETERS  NECESSARY  FOR  ITS  PROPER  EXECUTION 
SUOROUTINES  THAT  INTERFACE  WITH  TABLUS  FOLLOW 

TRIPART  - DETERMINES  ALL  NECESSARY  PARAMETERS  FOR  I03VIP 

EXECUTION.  IT  DETERMINES  IN  WHICH  OF  THE  3 A^tAS 
IN  TH''  U.S.  THE  POINT  LIES. 


SORT 


DETERMINES  THE  CLOSEST  SET  OF  OATA  POINTS  UPON  WHICH  THE  ; 

INTERPOLATION  IS  BASED.  1 


CLSPT  - FINOS  IF  ANY  OF  OUR  OATA  POINTS  CONTAINED  WITHIN  BLOCK 
OATA  TABLES  Ai>E  WITHIN  .1  DEGREE.  IF  SO,  ANY  DATA  THAT 
IS  unknown  is  substituted  FOR  AND  NO  INTERPOLATION  IS  il 

DONE.  I 

I03VIP  - THE  MAIN  SUBROUTINE  FOR  THE  PACKAGE  THAT  DOES  THE  | 

INTERPOLATION,  SEE  lOBVIP  FOR  MORE  INFO,  I 

3L0CK  OATA  TA3LES  - CONTAINS  THE  OATA  BASE  UPON  WHICH  THESE  t] 

OATA  POINTS  ARE  DRAWN  FROM,  Cl 


INPUT 

XLAT  - STATION  LATITUDE  IN  DO.MM.SS  AT  WHICH  OATA  IS  DESIRED 
XLON  - STATION  LONGITUDE  IN  DO.MM.SS  AT  WHICH  OATA  IS  DESIRED 
ELEV  - ELEVATION  OF  SAID  STATION 

...NOTE  - ANY  OR  ALL  OF  THE  FOLLOWING  MAY  BE  UNSPECIFIED 

P - PRESSURE  AT  STATION  (MILLIBARS) 

T - TEMPERATURE  AT  STATION  (DEGREES  CENTIGRADE) 

RH  - RELATIVE  HUMIDITY  AT  STATION  (DECIMAL  FRACTION) 

EH  - AVERAGE  ANNUAL  PRECIPITATION  (MH.) 

D - AVERAGE  NUMBER  OF  DAYS  WITH  PRECIPITATION  GREATER  THAN  ,26 
HM. 

U - NUMBER  OF  THUNDFRSTORH  DAYS 

EHAX  - GREATEST  MONTHLY  PRECIPITATION  RECOROED  IN  30  YEARS 
DESCRIPTION  OF  MAJOR  VARIABLES 

OECLAT,  OECLON  - ARRAYS  CONTAINING  POSITIONS  OF  THE  CLOSEST  SET 
OF  OATA  POINTS. 

PRESS  (P),  TEMP  (T),  RELHUM  (RH),  MM  (M),  00  (0),  UU  (U) , 

EHX  (EMAX)  - ARRAYS  CONTAINING  THE  MET EOROLOGICAL * DATA  OF  THE 
CLOSEST  SET  OF  OATA  POINTS  . IN  PARENS  IS  WHAT 
IS  BEING  INTERPOLATEO  FOR.  I.E.  IF  P IS  UNKNOWN, 
PRESS  IS  USED  TO  BASE  THE  INTERPOLATION  ON. 

IWICH  - INTEGER  ARPAY  CONTAINING  SUBSCRIPTS  OF  THE  CLOSEST  SET 
OF  OATA  POINTS 

INK,  NK  • WORK  ARRAYS  REQUIRED  BY  lOBVIP.  THESE  ARE 

DIMENSIONED  AT  A MAXIMUM  OF  2C  POINTS  TO  BASE  THE 
INTERPOLATION  ON.  SEE  ID8VIP  FOR  MORE  INFO. 


IFLAG 


INTEGER  ARRAY  SPECIFYING  WHETHER  EM,  0,  U,  OR  EHAX  HERE 
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INTERPCLATFO  FOR 


I 


OCXLAT, 


ICLOSE 


OCXLON  - DECIMAL  POSITION  OF  STATION  AT  WHICH  DATA  IS  j 

0=SIRE0.  1 

INTEGER  VtRIASLE  CONTAINING  CLOSEST  POINT  THAT  IS 
within  .1  DEGREE  OF  THE  STATION  AT  WHICH  DATA  IS 

DESIRED  i 


NDP 


NCP 


number  of  DATA  POINTS  USED  IN  INTERPOLATION.  DEFENDS  ON 
THE  PAPTITION  THE  INTERPOLATED  POINT  IS  IN,  I.E. 

FOR  HAWAII  - NOP=  ^ 

FOR  ALASKA  - NOP=  2b 

FOR  THE  CONTINENTAL  U.S,  - NCP=  329 

NUMBER  OF  DATA  POINTS  USED  TO  ESTIMATE  PARTIAL 
OERIl/ATIVES  - SEE  lOBVIP 


DIMENSION  PRESSIE:),  TEMP(2JI,  RELHUMJEC),  00(20,  UU(2C),  EMX(2C) 
DIMENSION  OECLAT  (2.) , OECLON(20),  IFLAG(A),  IWICH(20) 

DIMENSION  IWKdESlI,  WKCIEQ) 

COMMON/OATPT/  OAT APT ( 359, 10 ) 

REAL  MM(2a» 

DATA  STATEMENT  CONTAINING  ROUNDING  FACTOR  FOR  ELEVATION, 

ELEVATION  IS  ASSUME  0 ACCURATE  TO  MAP  ACCURACY  - 35  M. 


DATA  CONTUR/  35.0/ 

FUNCTION  TO  CONVERT  DO.MM.SS  TO  DECIMAL  DEGREES 

OECIML(X)=  FLOAHINKX)  » ♦ (X  - FLOAT  (INT  (X) ) »/a.6 

INITIALIZE  IFLAG 

IFLAG(i>=  0 
IFLAG(Z)s  0 
IFLAG(3ls  0 
IFLAG(4)=  0 

TEST  TO  SEE  IF  ALL  THE  DATA  IS  SPECIFIED 
TABS*  A3S<T) 

TESTS  AMIN1(P,TABS,RH,EM,0,U,EMAX) 

IFITEST  .NE.  O.C)  RETURN 

ROUND  ELEVATION  TO  CLOSEST  CONTOUR  INTERVAL 

Els  ELEV/CONTUR 
F2=  AINT(El) 

E3=  AINT(2.*(E1  - E2> ) 

ELV=  (E2  ♦ E3)  • CONTUR 

CONVERT  INTERPOLATED  STATION  LOCATION  TO  DECIMAL  DEGREES. 

OCXLATs  OECIML(XLAT) 

DCXLONs  OECIML(XLON) 

CALL  TRIPART  TO  GET  ALL  NEEDED  INFO.  AND  DATA  FOR  THE  INTERP. 
CALL  TRIPART (NOP, NCP, OCXLAT, OCXLON, INICH,ICL0SE> 

TEST  TO  SEE  IF  INTERPOLATED  STATION  LIES  WITHIN  .1  DEGREE  OF  A 
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IFdCLOSt  .£Q.  w)  GO  TO  1 

IF(P  .EQ.  C.C)  P=  0ATAPT(ICL0SE,4» 

IF(T  .EQ.  0.0  T=  0ATAPHICL0SE,5> 

IF(PH  .EQ.  0.0)  RH=  DATAPTdCLOSE.U) 

IFJE’1  .EQ.  O.C)  EM=  OATAPTtICLOSE.7) 

IF(0  .EQ.  C.O  0=  OATAPT  (ICLOSEtS) 

IF(U  .EQ.  0.0  U=  0ATAPT(IC».0SE,9) 

IF<E'1AX  .EQ.  C.:»  EMAX=  OATAPTf  tICLOSE  , lO ) 
return 

.....IF  SOME  DATA  IS  UNSPECIFIED  AND  STATION  LIES  OUTSIDE  OF  .1  DEGREE 
OF  A OATA  STATION,  PROCEED  WITH  INTERPOLATION. 

NOTE  - PRESSURE  IS  REDUCED  TC  SEA-LEVEL  FOR  A MORE  ACCURATE 

INTERPOLATION  VIA  EXP<ARG) 

1 00  lOCO  1=1, NOP 

OECLATJI)=  DATAPT IIHICH(I) ,1> 

DECLON(II=  OATAPT (IMICH(I) ,2) 

ARG=  9.d  • CATAPTdHICHdJ  ,3)/(287.04  • (273.16  ♦ 

1 OATAPTdMICHd)  ,5)1  I 

PRESSd)=  OATAPT  (IMICHd)  ,4)  • EXP(ARG) 

TEMP(II=  0ATAPT(IHICH(I),5) 

RELHUMd)*  OATAPTdWICH(I)  ,6) 

MM(I)=  OATAPTdMICHd)  ,7) 

00(I)=  OATAPTdMICHd), 8) 

UUd)=  OATAPTdMICHd)  ,9) 

EMXd)=  OATAPTdMICHd), 10) 

1000  CONTINUE 

THE  interpolation  IS  BEGUN  HERE  WITH  AN  INITIAL  CALL  TO  IDBVIP  TO 

INTERPOLATE  EMAX.  THUS,  ANY  OF  THE  ABOVE  METEOROLOGICAL  OATA 
THAT  IS  UNKNOMN  MILL  BE  INTERPOLATED  FOR.  IN  THE  CASE  OF  EM, 

0,  U,  OR  EHAX  BEING  UNKNOMN  A FLAG-  IFLAG,  IS  SET  SPECIFYING  SO 

CALL  IOdVIP(l,NCP,NOP,OECLAT,OECLON,EMX,DCXLAT,OCXLON,EMXE,INK,HK) 
1F(EMAX  ,NE.  0.0)  GO  TO  2 
EMAX=  EMXE 
IFLAG(4)=  -1 

IF  T IS  UNKNOMN  INTERPOLATE  FOR  IT  HERE. 

2 1F(T  .NE.  0.0)  GO  TO  3 

CALL  I0BVIP(3,NCP,NDP,nECLAT,0ECL0N,TEMP,DCXLAT,0CXL0N,T,IHK,NK) 

IF  P IS  UNKNOMN  INTERPOLATE  FOR  IT  HERE  AND  THEN  RE-EVALUATE  FROM 

PSEUOO-SEA-LEVEL  TO  ELV. 

3 IFIP  .NE.  0.0)  GO  TO  4 

CALL  n8VIP<3,NCP,NOP,OECLAT,0£CLON,PRESS,DCXLAT,OCXLON,P,IHK,WK) 
ARG=  -9.8  * ELV/(28r.C4  ♦ (273.16  ♦ T) ) 

P=  P ♦ EXP(ARG) 

IF  RH  IS  UNKNOMN. INTERPOLATE  FOR  IT  HERE 

4 IF(RH  .NE.  0.0)  GO  TO  5 

CALL  10BVIP(3,NCP,N0P,0ECLAT,0ECL0N,RELHUM,0CXLAT,0CXL0N,RH, 

1 IMK,MKI 


IF  EM  IS  UNKNOMN  INTERPOLATE  FOR  IT  HERE 


o o o o o o 


5 IFCEI  .NE.  3.U»  go  to  6 

CALL  I JBt/IP(3tNCP,NDPtnECLATtDECLON,MM,OCXLAT,OCXLON,EM.IHKtWKI 
IFLAG(1)=  -1 

6 IFO  .Nr.  0.0)  GO  TO  7 

IF  0 IS  UNKNOWN  INTERPOLATE  FOR  IT  HERE 

CALL  I08VIP(3,NCP,NJt',OECLAT.DECLON,CD,OCXLAT,OCXLON,0,lWK,MK) 
IFLAG(2)=  -1 

IF  U IS  UNKNOWN  INTERPOLATE  FOR  IT  HERE 

7 IF(U  .NE.  0.0)  RETURN 

CALL  IOBVlP(3.NCPtN3F .DECLATtOECLON.UUtOCXLAT.OCXLONtUt IWK(WK) 
IFLAG(3)=  -1 
RETURN 
ENO 


f 
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SUBROUTINE  TRIPART(N3r,NCP.0CXLAT,0CXL0Nf IMICH.ICLOSEI 

THIS  ROUTINE  FINOS  WHICH  OF  THE  3 PARTITIONS  OF  THE  U.S.  CONTAINS 
THE  INTERFOLATEO  POINT.  IT  THEN  INITIALIZES  VARIABLES-  NCP  AND 
NOP.  NEEOED  FOR  PROPER  EXCUTION  OF  lOBVIP- (AKIMA,1977) , IT 
ALSO  INTERFACES  WITH  TWO  SUBROUTINES  - SORT  AND  CLSPT, 

SORT  - THIS  FINOS  THE  CLOSEST  SET  OF  DATA  POINTS. 

CLSPT  - THIS  OETERKINES  IF  ANY  DATA  POINTS  LIE  WITHIN  .1 
OEGREE  OF  THc  INTERPOLATED  STATION. 

THE  CRITERION  FOR  DETERMINATION  0^  WHICH  PARTITION  IS  ROUGHLY  THIS 

FOR  ALASKA 

LATITUDE  GREATER  THAN  53.  DEGREES 
130.  LT  LONGITUDE  LT  1=0.  DEGREES 

FOR  HAWAII 

19.5  LT  LATITUDE  22.5  DEGREES 
15G.  LT  LONGITUDE  LT  16C.  DEGREES 

FOR  THE  CONTINENTAL  U.S. 

24.5  LT  LATITUDE  LT  5C.  DEGREES 
66.  LT  LONGITUDE  LT  126.  DEGREES 

NOTE  - IF  THE  POINT  OCES  NOT  LIE  IN  ONE  OF  THESE  PARTITIONS,  THE 
CLOSEST  2C  DATA  POINTS  ARE  FOUND  AND  THESE  ARE  USED  FOR  THE 
INTERPOLATION. 

INPUT 

OCXLAT,  OCXLON  - QECIHAL  POSITION  OF  THE  STATION 


OUTPUT 


NOP  - NUMBER  OF  DATA  POINTS  USED  FOR  INTERPOLATION 
NCP  - NUMBER  OF  DATA  POINTS  USED  FOR  ESTIMATING  PARTIALS 
IWICH  - INTEGER  AR^^AY  CONTAINING  SUBSCRIPTS  OF  CLOSEST  POINTS 
ICLOSE  - INTEGER  VARIABLE  CONTAINING  SUBSCRIPT  OF  CLOSEST  DATA 
POINT  WITHIN  .1  DEGREE  OF  THE  UNKNOWN  STATION, 
OTHERWISE,  IT  IS  SET  TO  ZERO. 


VARIABLES  OF  INTEREST  IN  THE  SUBROUTINE 


ISTART  - SPECIFIES  WHERE  THE  DATA  FOR  THAT  PARTITION  STARTS  IN 
OATAPT. 

CLOSE  - ARRAY  HOLDING  DISTANCES  OF  CLOSEST  SET  OF  DATA  POINTS. 
NOPl  - NUMBER  OF  DATA  POINTS  THAT  WILL  BE  USED  FOR  THE 
INTERPOLATION  BASE. 

NOP  - NUMBER  OF  DATA  POINTS  IN  EACH  PARTITION.  THE  NDPl  DATA 

POINTS  HILL  BE  CONTAINED  IN  THIS  PARTITION. 

« 

DIMENSION  CLOSE(20),  IHICH(20) 

COHHON/OATPT/  OATAPT (359,10  I 

INITIALIZE  ICLOSE 

ICLOSEsO 

DETERMINE  WHETHER  DESIRED  POINT  LIES  WITHIN  THE  ALASKAN  AREA. 


ii 


1 


IFIOCXLAT  .LT.  5C.»  GO  TO  1 
IC:  IQH  ALASKA 


76 
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NOF=  755 
N0P1= 

MCP= 

ISTART=  33o 

IFt')CXLON  .GT.  9y,l99 

C 

C OETiRMINE  WHETHER  THE  DESIRtC  POINT  LIES  WITHIN  THE  HAWAIIAN  AREA 

C 

1 IFOCXLON  .LT,  li3.»  GC  TO  2 
IG=  lOH  HAWAII 
NOP=  359 
NOPls  4 
NCP=  3 
ISTARTs  356 

IFCOCXLON  .GT,  lo'.,)  6(  TO  199 

IFtCOCXLAT  .GT.  15.51  .AND.  lOCXLAT  .LT.  22.3)>  99«199 


C POINT  lies  WITHIN  THE  CONTINENTAL  U.S.  AREA 

C 

2 10=  13HC0NT.  U.S. 


NDP=  329 
N0P1=  20 
NCP=  «♦ 

ISTAPT=  1 

IFtOCXLAT  ,LT.  24.5)  GO  TO  199 

IF((DCXLCN  .LT.  126.)  .ANC.  (OCXLON  .GT.  b6.))  99,199 


IF  THE  POINT  LIES  IN  CNE  OF  THE  ABOVE  ZONES,  PRINT  A MESSAGE 

C SAYING  SO  AND  CALL  SORT  AND  CLSPT.  THEN  INITIALIZE  THE  OUTPUT 

C NOP. 

C 


99  WRITE(6,130) ID 

CALL  SORT (OCXLAT, DCXLCN, NOP, IWICH.NOPl, CLOSE, ISTART) 
CALL  CLSPT {CLOSE, N0P1,1WICH,ICL0SE) 

NOP=  NOPl 


RETURN 

C 

C DESIRED  POINT  LIES  OUTSIDE  OF  THE  POLITICAL  U.S.  PRINT  A MESSAGE 

C saying  so  and  find  the  2j  CLOSEST  DATA  POINTS  FOR  THE 

C INTERPOLATION 

C 


199  HRITE(b,20C) 


NDP=  359 
N0P1=  20 
ISTART=  1 

CALL  SORT ( OCXL AT, OCXL ON, NDP,IWICH,NDP1, CLOSE, 1ST ART) 

NDP=  NCPl 
RETURN 

100  F0RMAT(1X,31HINTERP0LATED  POINT  LIES  IN  THE  ,Ai:,6H  ZONE.) 

200  F0RMATI1X,96HINTERP0LATE0  POINT  LIES  OUTSIDE  OF  U.S.  POLITICAL  BOU 
INOARIES.  PROGRAM  CANNOT  GUARANTEE  RESULTS.) 


FNO 


oooo  oooo  o o o o o o o o o o o o o o o o o 
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SUB-'OUTINt  CLSPT  <CLOS'^  tNOPl  , IWICH  , ICLOSE ) 

THIS  SUSi^OUTI^c  OiTER  INES  IF  ANY  DATA  STATIONS  ARE  WITHIN  .1 
DEGREE  OF  THE  OESI-EQ  STATION. 


INPUT 

CLOSE  - ARRAY  CCNTAINING  DISTANCES  FROH  THE  CLOSEST  SET  OF  DATA 
STATIONS  Jr  THE  DESIRED  STATION. 

IWICH  - ARRAY  CCNT4INIHG  THE  SUBSCRIPTS  OF  THE  CLOSEST  SET  OF 
DATA  STATIONS. 

NuFl  - QUANTITY  OF  CLOSEST  DATA  STTATIONS. 


CUTPUT 

ICLOSE  - IF  THERE  EXISTS  A STATION  WITHIN  .1  DEGREE  OF  THE 
OESIREO  STATION,  ICLOSE  IS  SET  TO  THAT  STATIONS 
SUBSCRIPT  ANO  A MESSAGE  IS  PRIMES-.  IF  NOT,  ICLOSE 
REMAINS  AT  2ikO. 

DIMENSION  CLOSE(NQPl»,  IHICH(NOPH,  IHOLO(lu,E) 

REAL  MINOIS 

data  statement  that  CONTAINS  A DISTANCE  OF  APPROXIMATELY  .1  DEGREE 

IN  KM.  SQUARED 

DATA  HINDIS/  7.rE-j3/ 

KOUNT=  3 

DO  IJCQ  I=1,NDP1 

IF(CLOSE«H  .GT.  HINDIS)  GO  TO  1003 
KOUMT=  KOUNT  ♦ 1 
IHOLO  (KOUNT.l) = I 
IH0LarK0UNT,2)=  IWICH(I) 

ICOO  CONTINUE 

IF(KOUNT  .EQ.  3)  RETURN 


3 

1 


AT  LEAST  ONE  STATION  FOUND  THAT  LIES  WITHIN  .1  DEGREE.  FIND  THE 
CLOSEST. 


ICLOSE=  IH0L0(1,2> 

CLMIN=  CLOSEdHOLOd,!)) 

DO  1250  1=1, KOUNT  , 

IFCCLMIN  ,LE.  CLOSE ( IHOLD ( I , 1) » ) GO  TO  1250  1 

CLMIN=  CLOSEdHOLOd, 1)1  1 

ICLOSE=  IHOLOd,2) 

1250  CONTINUE 

PRINT  130. ICLOSE  | 

RETURN 

100  FORMATdH  .feOHSTATION  IS  WITHIN  ONE  TENTH  OF  A DEGREE  FROM  A DATA 
ISTATION./IH  ,60HPROGRAM  DEFAULTS  TO  METEOROLOGICAL  DATA  FROM  STATI 
20N  NUMBER  ,13)  i 

END 


i 

I 


oooooooooooooooooo 


-i 

1 SUa^OUTINt  SORT (OCXLA* ,0CXL0N, NOP, IMICH,N0Fl,CL3St,lSTARU 


THIS  SU3R0UTINE  15  A 'ORTIMG  ROUTINE  TO  FIND  THE  CLOSEST  SET  OF 
OATA  POINTS  TO  THE  T^SIREO  STATION, 

INPUT 

OCXLAT,  OCXLON  - 3ECIMAU  LOCATION  OF  THE  DESIRED  STATION 
NOP  - NUMBER  OF  DATA  STATIONS  IN  EACH  PARTITION, 

NOPl  - OUANTITY  OF  CLOSEST  DATA  STATION'S  DESIRED  FOR 
INTERPOLATION, 

I3TART  - WHERE  THE  DATA  BASE  STARTS  PELATH/E  TO  THE  ARRAY 
DATAPT. 

OUTPUT 

IWICH  - INTEGER  AR- AY  CONTAINING  THE  SUbSCRIPTS  OF  THE  CLOSEST 
SET  OF  DATA  POINTS, 

CLOSE  - ARRAY  CONTAINING  THE  SQUARED  DISTANCES  OF  THE  CLOSEST 
SET  OF  DATA  POINTS  TO  THE  OESIREO  POINT. 


DINENSION  IWICHJNDFl),  CLOSE(NOPl) 
i COMMON/OATPT/OATAPT(3:D,1; ) 

DS0F(X1,Y1,X2,Y2)=  (XT  - Xl)*»2  ♦ (Y2  - Yl)**2 

: ji=o 

^ CLMAX=  0,0 

t 00  10 :3  I=ISTART,NOP 

DSQ=  DSQFJOCXLAT, OCXLON, EATAPT(I,l),0ATAPTtI,2)) 
Jl=  J1  ♦ 1 
CL0SE(J1)=  DSQ 
IW1CH(J1)=  J1 

i IFIOSQ  .LE,  CLMAXJ  GO  TO  1 

i CLMAX=  OSQ 

; JMAX=  J1 

' 1 IF(J1  .GE.  NOPl)  60  TO  2 

1000  CONTINUE 

i 2 IMIN=  I ♦ 1 

IFCIMIN  .GT.  NOP)  RETURN 
00  1530  I=IMIN,NDF 

■ CSQ=  OSQFIOCXLAT, OCXLON, DATAPTII,l),OATAPT«I, 2)) 

I IF(OSa  .GE.  .CLMAX)  GO  TO  1500 

f CLOSE (JMAX)=  DSQ 

L 1HICHUMAX)=  I 

f ! CLMAX=  O.G 

I 00  1250  J=1,NDP1 

• i IFTCLOSEiJ)  .LE.  CLMAX)  GO  TO  1250 

I CLMAX=  CLOSE(J) 

I I JMAX=  J 

I i 1250  CONTINUE 

I 1500  CONTINUE 

I ‘ { RETURN 


END 


OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 


SUBROUTINE  I0BVlP(MD,NCF»N0P,X0,YDt20,XI,Yl,ZT,IHK,HIO 
THIS  SUBROUTINE  PERFORMS  PIVAklATt  I NTERP0LATI0f4  NHEN  THE  PRO- 
JECTIONS OF  THE  DATA  POINTS  IN  THE  X-Y  PLANE  ARE  IRREGULARLY 
OISTRIBUTfO  IN  THE  PLANE, 

THE  INPUT  PARAHETERS  ARE 

MO  = NODE  OF  CONFUTATION  (MUST  BE  1,  2,  OP.  3»  , 

= 1 FOR  NEW  NCP  AND/OR  NEM  XO-YO, 

= 2 FOR  OLO  NCPf  OLD  XO-YO,  NEN  XI-YI, 

= 3 FOR  CLO  NCP,  CLC  XO-YO,  OLO  XI-YI, 

NCP  = NUMBER  OF  ADDITIONAL  DATA  POINTS  USED  FOR  ESTI- 
MATING PARTIAL  DERIVATIVES  AT  EACH  DATA  POINT 
(MUST  BE  2 OR  GREATER,  BUT  SMALLER  THAN  NOP>, 

NOP  = NUMBER  OF  DATA  POINTS  (MUST  BE  A OR  GREATER), 

XD  = ARRAY  OF  DIMENSION  NOP  CONTAINING  THE  X 
COORDINATES  OF  THE  DATA  POINTS, 

YD  = ARRAY  OF  DiMtNSICN  NOP  CONTAINING  THfc  Y 
COORDINATES  OF  THE  OATA  POINTS, 

ZC  s ARRAY  OF  DIMENSION  NOP  CONTAINING  THE  Z 
COORDINATES  OF  THE  OATA  POINTS, 

XI  = ARRAY  OF  OIMENSICN  NIP  CONTAINING  THE  X 
COORDINATES  OF  THE  OUTPUT  POINTS, 

YI  = ARRAY  OF  DIMENSION  NIP  CONTAINING  THE  Y 
COORDINATES  OF  THE  OUTPUT  POINTS. 

THE  OUTPUT  PARAMETER  IS 

21  = ARRAY  OF  DIMENSION  NIP  WHERE  INTERPOLATED  Z 

VALUES  ARE  TO  BE  STORED. 

THE  OTHER  PARAMETERS  ARE 

INK  = INTEGER  ARRAY  OF  DIMENSION 
MAXO (31,27+NCP) •NOP+NIP 
USED  INTERNALLY  AS  A WORK  AREA, 

NK  = ARRAY  OF  DIMENSION  8*N0P  USED  INTERNALLY  AS  A 
MORK  AREA. 

....NOTE  - NIP  IS  SET  TO  ONE, 

THE  VERY  FIRST  CALL  TO  THIS  SUBROUTINE  AND  THE  CALL  KITH  A NEN 
NCP  VALUE,  A NEN  NOP  VALUE,  AND/OR  NEN  CONTENTS  OF  THE  XO  AND 
YO  ARRAYS  MUST  BE  MADE  NITH  MO=l,  THE  CALL  WITH  M0=2  MUST  BE 
PRECEOEO  BY  ANOTHER  CALL  WITH  THE  SAME  NCP  ANC  NOP  VALUES  AND 
WITH  THE  SAME  CONTENTS  OF  THE  XO  AND  YO  ARRAYS.  THE  CALL  NITH 
MOs3  MUST  BE  PRECEOEO  BY  ANOTHER  CALL  WITH  THE  SAME  NCP,  NOP, 
AND  NIP  VALUES  AND  NITH  THE  SAME  CONTENTS  OF  THE  XO,  YD,  XI, 
AND  YI  ARRAYS.  BETWEEN  THE  CALL  NITH  MO=2  OR  MDs3  AND  ITS 
PRECEDING  CALL,  THE  INK  AND  NK  ARRAYS  MUST  NOT  BE  DISTURBED. 
USE  OF  A value  BETWEEN  3 AND  5 (INCLUSIVE)  FOR  NCP  IS  RECOM- 
MENDED UNLESS  THERE  ARE  EVIDENCES  THAT  DICTATE  OTHERNISE. 

THE  LUN  CONSTANT  IN  THE  DATA  INITIALIZATION  STATEMENT  IS  THE 
LOGICAL  UNIT  NUMBER  OF  THE  STANDARD  OUTPUT  UNIT  AND  IS, 
THEREFORE,  SYSTEM  DEPENDENT. 

THIS  SUBROUTINE  CALLS  THE  IDCLOP,  lOLCTN,  lOPOPV,  lOPTIP,  AND 
lOTANG  SUBROUTINES. 

DECLARATION  STATEMENTS 

DIMENSION  XO(50) , YD (50 ,20(50) , INK (1601) ,NK (403) 
COMMON/IOLC/NIT 
COMMON/IOPI/ITPV 
OATA  LUN/6/ 

OATA  NIP/1/ 

C SETTING  OF  SOME  INPUT  PARAMETERS  TO  LOCAL  VARIABLES. 

C (FOR  M03l,2,3) 

10  MOOsMO 
NCPOsNCP 
NOPO*NOP 
NIP3*NIP 

C ERROR  CHECK.  (FOR  MDsl,Z,3) 


80 


20  IFlMir.LT.l.OR.MCiC.GT.  31  GO  TO  90 

IF(  <lCoj.LT.2.0R.NCP:.GE.HDP j)  GO  TO  90 

IP^JOP  .LT.4)  go  TO  90 

IFCMIPC.LT.U  GO  TO  9C 

IFCMOO.GE.Z)  GC  TO  21 

IWK<1»=NCP0 
IMK(2)=NOPu 
GO  TO  22 

21  NCPPV=IWK(1) 

N0PPV  = IHtC(2> 

IF<NCP.'.N£,NCPPV)  go  to  9: 

IFIiWPl  .NE.NCFPV)  GC  TO  9- 

22  IF(MOC.GE.3)  G»  TO  23 

1WK(3)=.'IIP 
GO  TO  3: 

23  NIPPVsI-4K(3» 

IFCMIPO.NE.NIPPVJ  GO  TO  90 

C ALLOCATION  OF  STORAGE  AREAS  IN  THE  IMK  ARRAY.  (F 
30  JM1PT=15 

JHIML=6*NOP041 
JHIMK=JWIML 
JHIPL=2:**NOP0*l 
JWIHP=3;*NDPC*1 
JMIPC=27*N0PC-H 

JMIT0=  NAX0<31,27*NCP;)*NLP0  ♦ 1 
C TRIANGULATES  THE  X-Y  PLANE.  (FOR  MO=l» 

40  IF(MO:.GT.l)  GO  TO  TE 

CALL  IOTANG(NDPC«XCtYC,NT,IMK(JMlPT) «NL«IWK( JWIPL) t 
1 IHK(JHIWL) «IHK(JNIHP) .HKI 

IHK(5I=NT 
INK(6I=NL 

IFINT.EQ.O)  RETURN 

C DETERMINES  NCP  POINTS  CLOSEST  TO  EACH  DATA  POINT.  (FOR  MO=l) 

50  1F(HD3.GT.1)  GO  TO  ET 

CALL  IDCLi)P(NOP:tXO.Yr;tNCPO«IMK(JHIPC)  I 
1F(IHK(JHIPC) .EQ.C)  RETURN 

C LOCATES  ALL  POINTS  AT  WHICH  INTERPOLATION  IS  TO  3E  PERFORMED. 

C (FOR  MO=1.2t 

60  IF(MDC.EQ.3)  GO  TO  7^ 

NIT  = C 

CALL  I3LCTN(NnPO«XO.YO,NT«INK(JNIPTI «NL« INK (JWIPL) tXI.Yl. 

1 IWK(JWIT3) ,IWK(JWIWKI «WK) 

C ESTIMATES  PARTIAL  OERIVATIOES  AT  ALL  DATA  POINTS. 

C (FOR  MO-1,2,3) 

70  CALL  IOPORV(NOPO,XO,YD,ZD,NCPO,1NK(JHIPC) ,NK) 

C INTERPOLATES  THE  ZI  VALUES.  (FOR  MO=l,2,3) 

00  1TPW=: 

CALL  IOPTIP(XO,YO,ZC,NT,INK(JMIPT) ,NL,INK(JHIPL) ,WK,INK( JNITO) , 
1 XI,YI,ZI) 

RETURN 
C ERROR  EXIT 

90  WRITE  (LUN,2090)  MO),NCP3,NUPQ,NIP«] 

RETURN 

C FORMAT  STATEMENT  FOR  ERROR  MESSAGE 
2090  F0RMAT(1X/41H  •••  IMPROPER  INPUT  PARAMETER  VALUE(S)./ 

1 7H  MO  s,I4,lJX,5HNCP  « , 16, 10X,5HNOP  s,I6, 

2 10X,5HNIP  s,I6/ 

3 35H  ERROR  OETECTEO  IN  ROUTINE  lOBVIP/) 

ENO 


81 


I 
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? SU3-?0UTINE  1 jCL?P«"l0‘  ,XO,Yu,NCP,IFC) 

C this  SU3?nuTINE  SELF.CTS  S DATA  POINTS  THAT  AP.i  CLOSEST 

C TC  EACH  OF  THE  DATA  POINT. 

C THE  IHP'JT  PARAMETERS  AEI 
c NCP  = nijm'JcR  of  JATA  v-OIMTS, 

C X’^YI  = ARRAYS  OF  C IMt' NSI ON  NOP  CONTAINING  TH:  X AND  Y 

C COORDINATES  OF  THE  TATA  POINTS, 

C NCP  = NUNStR  CF  OATA  pcINTS  CLOSEST  TO  EACH  'UTA 

C POINTS. 

C THE  OUTPUT  parameter  IS 

C IPC  = INTEGER  APRAY  OF  OI'IGnSICN  NCP*N0F,  WHERE  THE 

C POINT  NUMBERi  OF  NCR  OATA  POINTS  CLOSEST  TO 

C EACH  OF  THE  NOP  CATA  POINTS  APE  TO  5L  STORES. 

C this  SU3RCUTINE  AR3ITR4RIIY  SfcTS  A RtSTRlCTlOE  ThAT  NCP  MUST 
C NOT  EXCEED  25. 

C THE  LUN  CONSTANT  IN  THE  O^TA  INITIALIZATION  STATEMENT  IS  THE 
C LOGICAL  UNIT  NUMBER  OF  TH-  STANDARD  OUTPUT  UNIT  ANO  IS, 

C THEREFORE,  SYSTEM  OEPENOEM. 

C OECLAPATICN  STATEMENTS 

dimension  XO<5a),Yj(5  I.IFClEOu) 

DIMENSION  oso:  ('■'»  ,]PC:  (25  J 
I OATA  NCPMX/2E/,  LUN/  / 

C STATEMENT  FUNCTION 

0SQF(U1,V1,U2.V2)= (U2-Ul)**2R(V2-tfll*»2 
C PRELIMINARY  PROCESSING 
10  NDP.’  = NCP 
NCP)=NCP 

IFCNOPS.LT.Z)  GO  TO  5: 

IFINCP-.LT.l.OR.NCPE.GT.MCPMX.OR.NCPj.GE.NCP:)  GO  TO  OS 
C CALCULATION 

20  GO  5N  IP1=1,NCPC 
C - SELECTS  NCP  POINTS. 

Xl=XO(IPH 

YlsYOdPl) 

Jl=  j 

CSQMX=0.0 

DO  22  IP2*1,N0P; 

IF(IP2.EG.IF1)  GC  TC  22 
DSQI=DSQF(X1,Y’ ,XO(IF2) . Y0(IP2) ) 

J1=J1+1 
OSQ-(JH=OSQI 
iPc: ( ji)=iP2 

IFnSQI.LE.OSQMXI  GO  TO  21 

OSONX=OSQI 

JMXsJl 

21  IF(Jl.GE.NCPG)  GO  TO  23 

22  CONTINUE 

23  IP2MNSIP2+1 

IFdPZMN.GT.NDPIl  GO  TO  3C 

DO  25  IP2=IP2MN.N0p: 

IFdP2,tQ.IPl)  GC  TO  25 
0£QI=D3QF(X1,V1,x:(IP2)  .YOdP2) ) 

IF(0S0I.6E.DSQhX)  GO  TO  25 

0SQ')(JMX»*0SQI 

IPC3 (JMX»=IP2 

OSDMXaO.O 

DO  24  J1=1,NCF0 

IF(OSQ£ (J1) .LE.OSOMX)  GO  TO  24 
03QMX=0SQ: ( Jl) 

JHXsJl 

24  CONTINUE 

25  CONTINUE 

C - CHECKS  IF  ALL  THE  NCPd  POINTS  ARE  COLLINEAR. 

30  IP2=IPC3(1) 
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GO  TO  5: 


0X12=X0tIP2)-Xl 
OV12=VOtIPc)-Yi 
CO  31  J3=2,NCP. 

If'3=IPCj  ( J3> 

CX13=XC(1P3)-X1 

J>1J=Y0(IF3)-Y- 

IFlCDY13*CX:?-i  Xi  ’OVlZI.NS.  ..I.)  GO  TO  5! 

31  continue 

C - StA^CHEi  FOR  TPt  CH;:Ei1  NCMCuLLlNr AR  POINT, 
to  NCLPT=C 

CO  43  IP3=1,N0P 

IF(IP3.^Q.IF1)  GO  TO  43 

00  J4=l,NCrS 

IF(IP3.FQ.IFCj(J‘*))  GO  TO 

41  CONTINUE 

■)X13  = X0(1P3)  -XI 
0Y13=Y0(IP3>-Y1 

IK(DY13*0X12-0X13*0Y12KE0...3»  GO  TO  43 

OSQI=OSQF (Xl.Yl.XO (IF.) ,Y0(IP3) ) 

IFtNCLPT.EQ. 3)  GO  TO  42 

IF(  OSQI.GE.DSr  NN)  GO  TO  •♦3 

42  NCLPT=1 
OSaNNsOSQ! 

IF3MN=IP3 

43  CONTINUE 

• IF(NCLPT.Ea.O)  Gr  TO  91 

DSQMX=OSQMN 
IPC. ( JMX)=IP3MN 

C - REPLACES  THE  LOCAL  AR^AY  FOF  THE  OUTPUT  ARRAY. 

50  Jl=(IPl-l)*NCPa 

00  51  J2=1,NCP': 

J1=J1*1 

iPC<Ji)=iPC; (J2) 

51  continue 
59  CONTINUE 

PE turn 
C ERROR  EXIT 

90  WRITE  (LUN,2090) 

60  TO  92 

91  WRITE  (LUN,2t91) 

92  WRITE  (LUN,2092)  NOP  ,NCFC 
IPC(1)=0 

return 

C FORMAT  STATEMENTS  FOR  ERROR  MESSAGES 

2090  FORMAT (1X/41H  IMPROPER  INPUT  PARAMETER  VALUc(SI.) 

2091  rORMAT(lX/33H  ALL  COLLINEAR  DATA  POINTS.) 

2092  FORMAKiJH  NOP  =,I5,5X,5HNCP  =tI5/ 

1 35H  ERROR  OETECTEO  IN  ROUTINE  lOCLOP/) 

END 


id 


SU3  •tilUTIME  IGLCTN(NO-  ,XO,YO,NTtIPT,MLtIPLtXIItYH.ITI, 

1 rWK,WKJ 

THIS  5U3'?GUTIN£  LOCATES  A POIHT  , I.E.,  liTESMINtS  TO  WHAT  TPI- 
ANGLE  A GIVfN  POINT  (XIItYIIJ  SILONGS.  WHEN  THE  GIVtN  POINT 
DOES  NOT  LIE  INSIDE  THt  DATA  AREA,  THIS  SUSkOUTINE  O'TERMINES 
THE  305(0- k LINE  SEG-iENT  WHEN  THE  POINT  LIES  IN  AN  OUTSIDE 
RECTANGULA:  area,  AKO  two  OOPOcR  line  SEGMENTS  WHIN  THE  POINT 
LIES  IN  AN  OUTSICE  TRIANGULAR  AREA. 

THE  INPUT  PARAMETERS  A -(E 

NDF  = NUf-MtR  OF  DATA  -Olf'TSi 

XC.YO  = ARRAYS  OF  DIM-NSION  NOP  CONTAINING  THE  X AND  Y 
COOROINATES  OF  THE  CAT  A POINTS, 

NT  = NUMOEk  OF  TRIANGLES, 

IPT  = INTEGER  ARRAY  OF  OIHENSION  3*NT  CONTAINING  THE 
POINT  NUMBERS  OF  THl  VERTEXES  OF  THE  TRIANGLES, 

NL  = NUM3ER  CF  aO^'Ot-'  LINE  SEGMENTS, 

IPL  = INTEGER  ARRAY  OF  DIMENSION  3*NL  CONTAIN'IMG  THE 
POINT  NUMQERS  OF  THE  END  PCINTS  OF  THE  50R0EK 
LIME  3EGMFMS  AMD  THEIR  RESPECTIVE  TRIANGLE 
NUMBERS, 

XII, YII  = X AND  Y COO^jINATcS  OF  THE  POINT  TO  5E 
LOCATED. 

THE  OUTPUT  PARAMETER  IS 

ITI  = TRIANGLE  NUMBER,  WHEN  THE  POINT  IS  INSIOE  THE 
DATA  AREA,  CR 

TWO  BORDER  LINE  S'^G'ENT  NUMBERS,  ILl  AND  ILc‘, 

CJOEO  TO  ILl*(NT+NLI*IL2,  WHEN  THE  POINT  IS 
OUTSIDE  THE  DATA  AREA. 

THE  other  PARAMETERS  ARE 

IMK  = INTEGER  A^RAY  OF  CI^ENSION  13*N''P  USED  INTER- 
NALLY AS  A WORK  AREA, 

WK  = ARRAY  OF  DiMEfISIOM  o*NOP  USED  INTERNALLY  AS  A 
WORK  AREA. 

DECLARATION  STATEMENTS 

DIMi  NSION  XDCSO) ,Y0(5:) ,IFT<235) ,IPL(30C) ,lWK(90il  ,MK(4&Q» 
DIMENSION  NTSC(-j)  ,IDSC(v) 

COMMON/IOLC/NIT 
STATEMENT  FUNCTION 

S1DE(U1,V1,U2,V2,U3,V:)  = (V3-V1)*  (U2-UU-(U3-U1)*(V2-V1) 
preliminary  PROCESSING 
10  NOP^=NOP 

nt:=nt 

NL0=NL 

NTL=NTG*NLO 

XC=XII 

YC=YII 

PROCESSING  FOR  A NEW  SET  OF  DATA  POINTS 
2C  IF(NIT.NE.0»  GO  TO  J: 

NIT=1 

- DIVIDES  The  X-Y  plane  into  nine  RECTANGULAR  SECTIONS, 
XMN=XC«1» 

XMX=XMN 

YHN=Y0C1) 

YMX=YMN 

CO  21  IOPa2,NDPO 
Xl=XD(IOPI 
YI=YD(IOP» 

IF(XI.LT,XMN)  XMN=XI 

IFJXI.GT.XMX)  Xf:X  = XI 

IF( YI.LT. YMNI  YVN=YI 

IFJYI.GT. YMXI  YMXaYI 

21  CONTINUE 

XSls  (XMN-fXMN^XMX)  /3.0 
XS2s(XHN*XMX^XMX»/3. I 


NEW  SET  OF  data  POINTS 
GO  TO  j: 


INTO  NINE  RECTANGULAR  SECTIONS. 


XMN=XI 
Xf:X  = XI 
y*;n=yi 

YMXaYI 


34 


I 


I 

IL' 


yi:  = (VI  OYMI.^V  lX)/3.  I 
YS;i  ( Y'C(*YMX*VMXI/7,  ; 

C - Oe^fR.^I  J-.C  ANO  STOR-'l  I’  TH'  XM<  ARRAY  TRIA^GL^.  iJU-'  ERn  OF 
C - the  TUAMGL'S  ASSnCiaTEi  with  each  of  TH;  MNE  SECTIONS. 

Cu  ISCsl.a 
NTSC(ISC) =. 

ICC)  =0 
’2  CCNTI'.U; 

IT  jT  3 = 

JV(K=: 

FC  C7  ITC=l,NTi 
ITDTT=IT0T3+3 
ll  = IPT  ( IT.'T3-2) 

I .’  = IFT  (IT3T3-1) 

13=1^1(11^13) 

X,1M  = A 1IN1  (XU(Il)  ,XC(  IC)  ,Xj  (13)  ) 

X IXsAHAXKXDdl)  ,X0(I’)  ,X0(I3)  ) 

YHNsA-llNl  (YD(Il)  ,YI(  IC)  dO(I3)  ) 

YMX=AHAX1(Y0(I1) ,YC( I?) tY. (13) ) 

IF( YMN.GT.YSl) 

IF(XHM.tt.XSl) 

IF  (XHX,GE.XSl.ANO,X‘'  N.Li..  XS2) 

IF(XHX.GE.XS2) 

23  IF(YHX.LT  •YSl.OR.YH*'  .GT.Y32) 

IF(X«1»(.L£.XS1) 

IF(XHX.GL.XSl,ANn,XMN,L;.*S2) 

IF (XMX.GE.XS2) 

2A  IF(YMX.LT.YS2) 

IF(XMN.L£.XS1) 

IF (XMX.GE.XSl. ANO.XIN.Ll. XS2) 

IF(XHX.GE.X32) 

25  00  2c  ISC  = 1,<; 

IFdOSCdSO.iU,  ■)  GO  TO  2d 
JIMK=9*NTSC(ISC) ♦ISC 
IHK{ JIHK) =IT3 
HTSC  (ISC)=NTSC(IS(  ) ♦: 

iosc(isc)=: 

26  CONTINUE 

C - STORES  IN  THE  )(K  ARRAY  THE  HIMHUM  ANO  MAXiMUri  :jF  THE  X ANO 
C - V COOROINATE  VALUES  FOR  -ACH  OF  THE  TFIANGLd. 

JWK=JHK^4 
HK( JWK-3)=XMN 
WK( JHK-2) =XMX 
HK( JHK-1)=YMN 
HK(JHK)  =YMX 

27  CONTINUE 
GO  TO  6S 

C CHECKS  IF  IN  THE  SAME  TRIANGLE  AS  PRtVIOUS. 

30  ITC=ITIPV 

IF(IT..GT.NTC)  GO  TO  <*: 

IT0T3=IT0*3 

IPl=IPT(ITCT3-2) 

XlsXOdPl) 

Yi=YO(IPl) 

IP2  = IFTdT0T3-l) 

X2=X0(IP2) 

V2=yO(IP2) 

lF(3IOE(Xl,Yl,X2tY2,X  ,Y  T.LT.O.X)  GO  TO  b' 

IP3=IPT(IT0T3) 

X3=xa(IP3) 

Y3=YO(IP3) 

IF(;IOE(X2,Y2,X3,Y3,X  .Yd.LT.O.S)  GO  TO  b 

IF(SI!,£(X3tY3tXl,YitX- ,Y:)  .LT.Q.C)  GC  TO  jC 

GO  TO  TO 


GO  TO  23 
lOSCd  ) = 1 
I0SC(c  ) = i 
I0EC(3)=1 
GO  TO  2*. 

lUSC  (‘•)ri 

IOSC(5)=l 
I0SC(6)=1 
GO  TO  25 
lOlC (7)=1 
IOSC(»)=l 
IjSC(9)=l 


I 
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fi 
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C CHECKS  IF  0^  THE  SAHZ  bn^n'R  lIN£  SEGMENT. 

4C  IL1=IT'/NTL 

il2=it;-ili*ntl 

IL1TT=IL1*3 
IFl=IfL (IL1T3-2) 

Kl=)irj  (IHl) 

Y1=Y J(IPl) 

IF2=rPL(ILlT3-l) 

X2  = XD  (IP2> 

Y2  = Y0  (I?2> 

CX j2=X:-X2 
OY02=YC-Y2 
DXtl=X2-Xi 
0Y21=Y2-Y1 

CS C 221  = 3X02*0X2  H-CYO 2* 0Y21 
IF<IL2.NE.IL1)  g:  to  do 

IF(CSa221.6T.C.CJ  G)  TC  oO 

0X,;1  = X;-X1 
OYJl=Yj-Yl 

IF(aYOl*DX21-CX01*OY2l .GT.O.OJ  GO  TO  60 

IFOX:1*OX21*DY;i*OY2?  .LT.C.O)  GO  TO  6C 

GC  TO  6j 

C CHECKS  IF  BETWEEN  THE  SAM-:  TKC  30R0ER  LINE  SEGMENTS. 

50  IF(CSC221.LT.0.C)  GO  TO  60 
IP3=IPL (3*IL2-1) 

X3=XD(IP3> 

>3=YD(IP3) 

CX22=X3-X2 
i:,Y32  = Y3-Y2 

IF(OXC2*OX32*OYC2*OY32 .LE.O.g)  GO  TO  83 

C LOCATES  inside  THE  DATA  A-EA. 

C - DETERMINES  THE  SECTION  IN  WHICH  THE  POINT  IN  OUZSTION  LIES. 

60  ISC=1 

IFIXu.GE.XSl)  IfC=ISC*l 

IFIX:.G£.XS2)  ISC=ISC+1 

IFIYJ.GE.YSl)  ISC=IEC+3 

IF(Y3.G£. YS2)  ISC=ISC*3 

C - SEARCHES  THROUGH  THE  TRIANGLES  ASSOCIATED  WITH  THE  SECTION. 
MSCI=NTSC(ISC) 

IF(NTSCI.LE.O)  GO  TO  73 

JIHK=-9*ISC 
00  61  ITSC=1,NTSCI 
JIMK=JIMK*9 
ITJ=IWK( JINKI 
JHK=IT0*4 

IF(xa.LT.MK(JHK-3» ) GO  TO  61 

IF(X3.GT.MK(JHK-2))  GO  TO  61 

IFtYj.LT.WKIJHK-D)  GO  TO  61 

IF(  YO.GT.HKUWK) ) GO  TO  61 

IT0T3=IT0*3 
IPl=IPT(IT0T3-2» 

X1  = XD  CIP1» 

Y1=Y0(IP1) 

IP2=IPT(IT0T3-1» 

X2=X0aP2) 

Y2=YD (IP2) 

IF(SIOE(X1,V1,X2,Y2.X3,YO) .LT.O.O)  GO  TC  61 

1P3=IPT(IT0T3) 

X3=X0(IP3) 

Y3=Y0(IP3) 

IF(SIOE(X2,V2,X3,Y3.XO,Ya) .LT.O.O)  GO  TO  61 

IFISI0E(X3, V3, XI, Yl.xa.YO) .LT.O.O)  GO  TO  61 

GO  TO  60 

61  CONTINUE 


! 
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C LOCftTtS  OUTSirt  THE  DATA  AREA. 

70  NL0TT=NL0*3 
IP1=IPL (NL0T3-2) 

Xl=XD(Ioi) 

Tl^YDCIPl) 

IP2=IPL(NL0T3-1) 

X2=XJ(I?2) 

Y2  = YO  «IP2> 

CX02=X;-X2 

LYC2=YC-Y2 

OX21=X2-Xl 

OY21=Y2-Yl 

CSa221=nX32*DX21*jY02*DY21 
DO  72  IL2=1.NLC 
X1  = X2 
Y1  = Y2 
OX  jl=DX02 
DY31=OY02 
CSPV=CS0221 
IP2=IPU (3*IL2-1) 

X2  = X J(IP2) 

Y2=YO(IP2» 

OXJ2=XO-X2 

OY;2=YO-Y2 

OX21=X2-Xl 

OY21=Y2-Yl 

CS3221=DXC2*DX21+0Y  2*DV2l 
IF(CS)221.GT..:.:)  GO  TO  72 

IF(DX31*OX21*OY.1*DV21.LT.O.G)  GO  TO  71 

IF(DY31*CX2l-OXul*DY21.LE.G.C)  GO  TO  74 

GO  TO  72 

71  IF(CSPW.GT.O.w)  GO  TO  73 

72  CONTINUE 
IL2  = 1 

73  IL1SIL2-1 

IFdLl.EQ.O)  IL1  = NL 

GO  TO  75 

74  IL1=IC2 

75  1T0=IL1*NTL+IU2 
C NORMAL  EXIT 

ea  ITI=IT3 
ITIPV=IT0 
RETURN 
END 


SUBROUTINE  IOPCRV(NPF , XP , Y 0 , ZC, NCP . I PC , PO) 

C THIS  SUBROUTINE  ESTIMATES  PARTIAL  DERIVATIVES  OF  THE  FIRST  AND 
C SECOND  ORDER  AT  THE  OaTA  FOINTS. 

C THE  INPUT  PARAMETERS  ARE 
C NOP  = NUMBER  CF  DATA  F0INT5. 

C XC,YT,ZJ  = ARRAYS  CF  ' IMESSION  NOP  COMTAIMNG  THE  X, 

C Y,  ANO  Z COORDINATES  OF  THE  QATA  POINTS, 

C NCP  = NUMBER  OP  ADDITIONAL  DATA  POINTS  USED  FOR  ESTI- 

C MATING  PARTIAL  ? EPIVATIVES  AT  EACH  CATA  POINT, 

C IPC  = INTEGER  ARRAY  OF  I'lt’ENSION  NCP^HDP  CONTAINING 

C THE  POINT  NUHBE'S  CF  NCP  DATA  POINTS  CLJSEST  TO 

C EACH  CF  THE  NOP  DATA  POINTS. 

C THE  OUTPUT  PARAMETER  IS 

C PU  = APRAY  OF  DIMENSION  S*NOP,  HHERE  THE  ESTIMATED 

C ZX,  ZY,  ZXX,  ZX> , AND  ZYY  VALUES  AT  THE  DATA 

C POINTS  ARE  TO  3'  STCREO, 

C DECLARATION  STATEMENTS 

DIMENSION  XO(EO) ,YC(Ej) ,ZD(50) ,IPC(20C) ,PO(25:) 

REAL  NMX,NMY,NMZ,NMXX,NHXY,NMYX,NMYY 

C PRELIMINARY  PROCESSING 
10  NOPC=NOP 
NCPOsNCP 
NCPM1=NCP0-1 

C ESTIMATION  OF  ZX  AND  ZY 
20  DO  24  IPC=l,NOPa 
X1=XO(IPO) 

YO=YO(IPO» 

Z3=ZO(IPO) 

NMX=5.0 
NMY=0. 3 
NHZ=0.0 

JIPC;=NCP3*«IP j-1) 

DO  23  IC1=1,NCPM1 
JIPC=JIPCC*IC1 
IPI=IPC<JIPC) 

. DX1^XD(IPI)-X3 

DY1=Y0IIPI)-YC 
0Zl=ZD(IPI»-2: 

IC2MN=IC1+1 
DO  22  IC2=IC2MN,NCP0 
JIPC=JIPCC*IC2 
IPI=IPCUIPC) 

OX2=XOIIPI>-XO 

OY2aYDIIPI)-Y3 

0NMZ=DX1*0Y2-DY1*0X2 

IFIONHZ.EQ.O.O)  GO  TO  22 

OZ2=ZO(fPI)-ZO 

ONMX=DYl*OZ2-OZl*OY2 

0NMY*DZ1*0X2-DX1*0Z2 

IF(ONMZ.GE.C.O)  GO  TO  21 

ONMXr-ONMX 

ONMY=-DNMY 

ONMZ=-DNMZ 

21  NMX=NMX+ONMX 
NMY=NMY*ONMY 
NMZsNMZ+ONMZ 

22  CONTINUE 

23  CONTINUE 
JPOOa5*IPO 
P0(JP0Q-4»=-NMX/NMZ 
PO< JP0a-3)=-NMY/NMZ 

24  CONTINUE 

C ESTIMATION  OF  ZXX,  ZXY,  AND  ZYY 
30  00  34  IPOal.NOPC 
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JPOv  = JPOii*E 

X3=xoapo> 

JPOC=5*IPO 

VO*YO(IPC» 

ZX3=P0(JP0C-4) 

ZYJ=P0IJP0C-3) 

NMXX=3,a 
NrtX¥=3,0 
N'lYXs"'.  ; 

NMYY=j,0 
NHZ  =0.0 

jiPCQ=NCPa*apo-ii 
DO  33  IClsl.NCPMl 
JIPC=JIPC0*IC1 
IPI  = IPCUIPC) 

0X1=X0(IP1)-X^ 

dyi=ydiipi»-y: 

JP0=5*IPI 

0ZXl=P0(JP0-4» -ZX" 
OZYl=PD(JPO-3»-ZY 
IC2MN=IC1*1 
00  32  IC^=IC2MN,^CP0 
JIPCsJIPCO+ICZ 
IPI=IPC(JIPC) 

DX2sX0IIPI)-x: 

OY2=YD<IPI)-YO 
ONMZ  =CX1*DY2  -I1Y1*CX2 
IF(ONMZ.EO,Q,J»  GO  TO  32 

JPDs5*IPI 

OZX2=PD«JPO-4»-ZX!5 

OZY2=PD(JPO-3)-ZYO 

QNMXX=OYt*OZX2-riZXl»OY2 

0NMXY=02Xl*CX3-nXl*0ZX2 

0NMYX=0Y1*0ZY2-3ZY1*0Y2 

CNMYY=OZYl*CX2-t  Xl*ijZY2 

IF(ONHZ.GE.O.O)  GO  TO  31 

ONHXX=>ONPXX 

0:4MXY  = -0NMXY 

i3NMYX=-DNMYX 

ONMYY=-ONMYY 

ONMZ  =-ONMZ 

31  NHXXsNHXX4^0NMXX 
NMXY=NMXY+DNMXY 
NMYX=NMYXtONMYX 
NMYYsNMYY+DNMYY 
NMZ  =NMZ  ♦ONMZ 

32  CONTINUE 

33  CONTINUE 

PO  < JPOO -2  » =-NMXX/NMZ 
POIJPOO-1)*-1NMXY^NMYX) /«2.0*NM2) 
PO(JPOO)  =-NMYY/NMZ 

3«»  CONTINUE 
RETURN 
END 
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SUBROUTINE  I0PTIP(X0,V0«Z0fNTtIFT,NL«IPLtP00.1TI,XII,YII 
1 ZII) 

THIS  SUBROUTINE  PERFORMS  PUNCTUAL  INTERPOLATION  OR  EXTRAPOLA- 
TIONt  I.E.,  DETERMINES  TH'  Z VALUE  AT  A POINT. 

THE  INPUT  PARAMETERS  ARE 

XD.YOtZO  = ARRAYS  OF  OIMENSION  NDP  CONTAINING  THE  X, 

Y,  ANO  Z COORDINATES  OF  THE  DATA  POINTS,  WHERE 
NOP  IS  THE  NUMB-R  OF  THE  OATA  POINTS, 

NT  = NUMBER  OF  TRIANGLES, 

IPT  = INTEGER  AkRAY  OF  DIMENSION  3*NT  CONTAINING  THE 
POINT  NUMBERS  OF  THE  VERTEXES  OF  THE  TRIANGLES, 

NL  = NUMBER  OF  BORCER  LIME  SEGMENTS, 

IPL  = INTEGER  ARRAY  OF  OIr.ENSlON  3*NL  CONTAINING  THE 
POINT  NUMBERS  OF  THE  END  POINTS  OF  THE  BORDER 
LINE  SEGMENTS  ANO  THEIR  RESPECTIVE  TRIANGLE 
NUMBERS, 

POO  = ARRAY  OF  DIMENSION  5*N0P  CONTAINING  THE  PARTIAL 
DERIVATIVES  AT  THE  OATA  POINTS, 

ITI  = TRIANGLE  NUMBER  OF  THE  TRIANGLE  IN  WHICH  LIES 
THE  POINT  FOP  WHICH  INTERPOLATION  IS  TO  BE 
PERFORMED, 

XII, YII  = X ANO  Y COOkOINATES  OF  THE  POINT  FOR  WHICH 
INTERPOLATION  IS  TO  BE  PERFORMED. 

THE  OUTPUT  PARAMETER  IS 

ZII  = INTERPOLATED  Z VALUE. 

DECLARATION  STATEMENTS 

DIMENSION  XO(50I ,VO(5  » ,ZO(S3),IPT(2dB) ,IPL(3?OI,POO(2Sa) 
COMMON/IOPI/ITPV 

DIMENSION  X(3) ,Y(3) ,Z(3)  ,P0(15) , 

1 ZU(3) ,ZV(3) ,ZUU(3),ZUV(3),ZVV(3) 

REAL  LU,LV 

EQUIVALENCE  (PB.PBC) 

C PRELIMINARY  PROCESSING 
10  IT0=ITI 
NTL*NT»NL 

IF(ITC.LE.NTL)  GO  TO  20 

IL1=ITC/NTL 
IL2=IT0-IL1*NTL 
IF(IL1.EQ.IL2)  GO  TO  AJ 

GO  TO  60 

C CALCULATION  OF  ZII  BY  INTERPOLATION. 

C CHECKS  IF  THE  NECESSARY  COEFFICIENTS  HAVE  BEEN  CALCULATED. 

20  IFIITQ.EQ.ITPVI  GO  TO  3i) 

C LOADS  coordinate  ANO  PARTIAL  DERIVATIVE  VALUES  AT  THE 
C VERTEXES. 

21  JIPTs3*(IT0-l) 

JPO*0 

DO  23  1=1,3 

JIPT=JIPT*1 
IDP=IPT(JIPT) 

X(II=XO(IOP) 

Ya>=YO(lDP) 

Z(I)=ZO(IOP) 

JPDD=5*aOP-l) 

00  22  KPO=l,5 
JP0=JP0*1 
JPOO=JPOD+l 
PD( JPD)=POOIJPOO> 

22  CONTINUE 

23  CONTINUE 

C DETERMINES  THE  COEFFICIENTS  FOR  THE  COORDINATE  SYSTEM 
C TRANSFORMATION  FROM  THE  X-Y  SYSTEM  TO  THE  U-V  SYSTEM 
C ANO  VICE  VERSA. 

2A  XQxXd) 
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Yl=Y(1) 

A=X(2)-)(0 
B=X(3)-X0 
C=Y (2>-y; 

0=Y  (3)-Y2 
A0=A*0 

Bc=a*c 

0LT=AD-3C 
AP=  O/OLT 
BP  = -3/!?LT 
CP=-C/OLT 
OP*  A/OLT 

C CONVERTS  THE  PARTIAL  DERIVATIVES  AT  THE  VERTEXES  OF  THE 

C TRIANGLE  FOR  THE  U-V  COOK. INATE  SYSTEH. 

25  AAsA«A 
ACT2*2. 3*A*C 
CC*C*C 
AB=A*B 
AOBCsAO^BC 
C0=C*0 
BB=8*B 
BOT2*2.0*B*O 
00«0*C 

00  26  Islt3 
JP0=5*I 

ZU(I»=A*PD(JP0-4»*C*P0(JPD-3» 
ZV(I)=B*PDUP0-4»*0‘P0(  JPO-3) 
ZUUmsAA*PO(JPO-2)*ACT2*POUPO-l)+CC*PO(  JPO) 
ZUVa»  = AB*PDUPD-2)*A0BC*P0IJP0-l)*C0*P0IJPT) 
ZVV(I>sBB*PDIJP0-2)*BnT2*PD(JP0-l)t00*PD(JP0) 

26  CONTINUE 

C CALCULATES  THE  COEFFICIENTS  OF  THE  POLYNOMIAL. 

27  POO=Za) 

PlO^ZUd) 

POl^ZVd) 

P20=0.S*ZUUdl 

Plls^ZUVd) 

Pfl2  = 0.5*2VVd) 

Hl  = Z<2)-P00-P10-P2i) 

H2s2U(2)*P10-ZUUd) 

H3=ZUUJ2»-ZUUdJ 

P30=  10.0*H1-4.0*H2*0.5*H3 

P40=-15.0*H1*7.0*H2  -H3 

P50=  6.0*Hl-3.u*H2+j.5*H3 

H1=Z(3>-PC0-P01-P32 

H2=ZV(3)-P01-ZVVd» 

H3  = ZVV(3)-ZVVd) 

P03=  10,0*H1-4.D*H2*C.5*H3 
P04=-15.0*H1*7.0*H2  -H3 
P05=  6.0*H1-3.0*H2+0.5*H3 

LUsSQRTIAA^CC) 

LV^SQRT  (BBi-OO) 

THXUsATAN2IC»A) 

THUVaATAN2(0tB)-THXU 

CSUVsCOS(THUV) 

P41*5.0*LV*CSUV/LU*P5. 

P14=5.0*LU»CSUV/LV*PJE 
Hi*ZV«2»-P0l-Pll-P41 
H2*ZUVC2I-P11-4.0*P41 
P21*  3.3*H1-H2 
P31*-2.a*Hl*H2 
Ml*ZU<3)-Pia-Pll-P14 
H2*ZUV(3)-P11>4.0*P14 
P12«  3.0*H1-H2 
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P13S-2. 

THUS=AT4N2(0-C,3-A>-THXU 
THSVsTHUV-THUS 
AAs  SIN<THSV)/LU 
BB=-COS  ITHSVI/L'J 
CC=  SINCTHUS)/LV 
0P=  COS<THUS)/LV 
ACsAA*CC 
A0= AA*00 
BC=88*CC 

G1  = AA*AC*(3.0*BC-»2.0*AO) 

G2sCC*AC*(3.0*AO*2. J*  1C» 

H1s:-AA*AA*AA*C5.o*AA*.!9*P5  j*  C4.a*8C*A0»*P‘*l) 
j 1 -CC*CC*CC*t5.0*CC*ro*Pt5»(4.0*AO*3C)*Plu) 

I H2=0.5*ZWV(2)-PC2-F12 

I H3a3.6*ZUU<3)-P2w-P21 

' P22=«G1*H2*G2*H3-H1>/(G1+G2) 

P32aH2-P22 
P23=H3-P22 
ITPV=IT3 

C CONVERTS  XII  AND  VII  TO  U-V  SYSTEM. 

30  CX=XII-X0 
OY=YII-YO 
UaAP*0X+3P*DV 
V=CP*OX^OP*DY 

C EVALUATES  THE  POLYNOMIAL. 

31  P0  = P00*V*(P01+V*«PC2<-V*<PC34V*<PO4^V*P05) ») ) 
Pl*Pi0*V*<Pll*V*(P12*V*(P13+V*P14»n 
P2aP2i.*V*IP21+V*«P22*V*P23» ) 

P3=P3a*V*(P31+V*P32) 

P4=P40*V*P41 

ZllaPO^U* (P1*U*  <P2*U* (P3^U*  <P4>U*P5) ) ) ) 

RETURN 

i ' C CALCULATION  OF  ZII  BY  EXTRAPOLATION  IN  THE  RECTANGLE. 

[ ' C CHECKS  IF  THE  NECESSARY  COEFFICIENTS  HAVE  BEEN  CALCULATED. 

40  IFIITU.EQ.ITPV)  GO  TO  53 

C LOAOS  COORDINATE  AND  PARTIAL  DERIVATIVE  VALUES  AT  THE  END 
C POINTS  OF  THE  80R0ER  LINE  SEGMENT. 

41  JIPLs3*(ILl-l) 

JPOaO 

00  43  Ial«2 
JIPLsJIPL+1 

I I3P»IPL<JIPL» 

I X(I)aXOIIOP) 

Va»sYO»IOP) 

ZlllaZOlIOP) 

jP30=5*aDP-a» 

I DO  42  KPQal.S 

JP0*JPD*1 

1 JP00=JP00*1 

1 P0(JP0)aP00(JPD0) 

, I 42  CONTINUE 

' 43  CONTINUE 

C determines  the  COEFFICIENTS  FOR  THE  COORDINATE  SYSTEM 
C TRANSFORMATION  FROM  THE  X-Y  SYSTEM  TO  THE  U-V  SYSTEM 
t . C AND  VICE  VERSA. 

( i 44  X0>X(1) 

V0«YI1> 

A«YI2)-YI1» 

BaXI2)-X(l) 

C*-8 
0«A 

A0«A*0 

ec*B*c 
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ULT=A0-3C 
ftps  O/OLT 
Bps -3/OUT 
CPs-BP 
OPs  AP 

C CONVERTS  TH=:  PARTIAL  DERIVATIVES  AT  THE  END  POINTS  OF  THE 
C BOROtR  LINE  SEGMENT  FOR  TH*^  U-V  COORDINATE  SYSTEM, 

45  AAsA*A 
ACT2=2.Q*A*C 
CCsC*C 
AB=A*B 
AC8C=A0*BC 
CCsC*0 
BB=3*e 

B0T2s2. :*B*0 
COsD*D 
00  46  Isly2 
JP0=5*I 

ZUII)sA*P0UPD-4)*C*PniJPD-3) 

Z V«I)sB*P0(JPr-4J ♦0*P0( JPC-3) 

ZUUdJ  sAA*P0IJPu-2)  ♦ACT2*PCCJP0-1)*CC*P0(JPD) 
ZUV<I)sA8*F0< JPD-2I*A0RC*P0<JP0-1»*C0*P0( JPO> 

ZVV(I) s8B*P0IJP0-2)*30T2»P0(JP0-1)+00*P0( 1) 

46  continue 

C CALCULATES  THE  COEFFICIENTS  OF  THE  POLYNOMIAL, 

47  POO=Z(1> 

PlCsZUJl) 

PC1=2V<1) 

P20sa.5*ZUU(l» 

PllsZUV(l) 

PC2=3.5*ZVVa) 

HlsZ12)-P00-P01-Pu2 

H2=ZV<2»-P01-ZVVC1) 

H3  = ZVV<2)  -zvva) 

PC3=  i:,3*Hl-4, :*H2*3.5*H3 

P04s-i5.0*Hl+7.0*H2  -H3 

P05=  6,0*H1-3.0*H2*0,5*H3 

HlsZU<2)-Pia-Plt 

H2sZUV«2J-Pll 

P12=  3.C*H1-H2 

P13=-2.0*H1+H2 

P21=0,0 

P23=-ZUUI2)»ZUUIU 

P22=-1.5*P23 

ITPV=ITO 

C CONVERTS  XII  AND  YII  TO  U-V  SYSTEM, 

50  OXsXII-XO 
0YsYII-Y3 
UsAP*OX»8P*OY 
V=CP*OX*OP»DY 

C EVALUATES  THE  POLYNOMIAL. 

51  PO=Pa:*V*IPjl*V*<P.2*V*<PC3*V*(P04^V*P65) ») ) 
P1»P10*V*(P11*V*(P12*V*P13»  > 

P2=P2a^V*(P21+V*<P22*V*P23l » 

ZII*Pi*U* (P1*U*P2) 

RETURN 

C CALCULATION  OF  ZII  BY  EXTRAPOLATION  IN  THE  TRIANGLE. 

C CHECKS  IF  THE  NECESSARY  C( EFFICIENTS  HAVE  BEEN  CALCULATED. 

60  IFIITO.EQ.ITPV)  GO  TO  7j 

C LOADS  COOROInATE  AND  PARTIAL  DERIVATIVE  VALUES  AT  THc  VERTEX 
C OF  THE  triangle. 

61  JIPLs3*IL2-2 
10P*IPL(JIPL) 

Xll)sXO(IOP) 
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V(U=¥;,(I0P) 

2(1) =zn(iop) 

JFOJ  = -:*  (IDP-l) 

DO  bZ  KP0=1,5 
JPL)I.=  JPOC*l 
Pfj(KPJ)  =POL  (JPOC) 

f,  S?  CONTI fJUt 

i C CALC(ILAT£T  THE  COEPFICI'^NI  S CP  THE  POLYNOMIAL. 

67  P0''  = Z(1) 

FlC=PU(l) 

F01=PO(2) 

P20=:.£*PO(3) 

i P11  = PL'(4) 

P02=C.5*PO(5) 

ITPtf=IT3 

c CONVERTS  XII  And  yii  to  u-v  system. 

i 7C  U=XII-X(1) 

V=VII-Y(1) 

^ C EVALUATES  THE  POLYNOMIAL. 

71  P2  = P0  J4-V*  (PC1+V*P  j2) 

P1=P10*V*P11 
ZII=P0*U* (Pl+U^PZQ) 

RETURN 
END 
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SUBIOUTINI  I0TANG(M0;  , y D , Y 0 , NT  , IFT  , NL  , I PL , I , C wp,  WK ) 

THIS  SU3P0UTINE  PERFO-MS  T P I A NGUL  ATI  ON.  IT  DIWIO-S  THi:  X-Y 
PLANE  INTO  A number  OF  TRIANGLES  ACCORDING  TO  GIVEN  DATA 
POINTS  IN  THE  PLANE,  Oc  T.-:-’ -11  N£  S LINE  SEGMENTS  THAT  FORM  THE 
BOROER  OF  DATA  AREA,  AMO  IETEkMINES  THE  T*;'!  ANGLE  NUI-^ERS 
CORREEPONfliNG  TO  THE  BORO-  R LINE  SEGMENTS. 

AT  COMPLETION,  POINT  NUMB  RS  OF  THE  VERTEXES  OF  EACH  TRIANGLE 
ARE  LISTED  COUNTER-CLOCKWISE.  POINT  NUMBERS  OF  THE  END  POINTS 
OF  EACH  BOROER  LINE  SEGHE'JT  ARE  LISTED  COUNTER-CLOCKWISE, 

LISTING  ORDER  OF  THE  LINE  SEGMENTS  BEING  COUNTS'^-CLOCKWISE. 

THE  LUN  CONSTANT  IN  THE  DATA  INITIALIZATION  STATEMENT  IS  THE 
LOGICAL  UNIT  NUMBER  OF  TH  STANDARD  OUTPUT  UNIT  AID  IS, 

THEREFORE,  SYSTEM  OEFENOErT. 

THIS  SUJROUTINE  CALLS  TH-  lOXCHG  FUNCTION. 

THE  INPUT  PARAMETERS  A^E 

NDP  = NUMBER  OP  DATA  lOIMTS, 

XC  = ARRAY  OF  DIMENSION  MOP  CONTAINING  THE 
X COORDINATES  JF  THE  DATA  POINTS, 

YD  = ARRAY  OF  DIMENSION  NOP  CONTAINING  THE 
Y COORDINATES  OF  THE  OATA  POINTS. 

THE  OUTPUT  parameters  ARE 

NT  = NUMBER  OF  TRIANGLES, 

IPT  = INTEGER  ARRAY  OF  DIMENSION  6*NIDP-1E,  WHERE  THE 
POINT  NUMBERS  OF  TH ' VERTEXES  OF  THE  (IT)Th 
TRIANGLE  ARE  TO  BE  STORED  AS  THE  (3*IT-2)NO, 

(3*IT-1)ST,  AND  (3»IT)TH  ELEMENTS, 

IT=1,2,...,NT, 

NL  = NUMBER  OF  BORDE'”  LINE  SEGMENTS, 

IPL  = INTEGER  ARRAY  OF  CIMENSION  6*N0P,  WHERE  THE 

POINT  NUMBERS  OF  THE  END  POINTS  OF  THE  (IDTH 
BOROER  LIME  SEGMENT  AND  ITS  RESPECTIVE  TRIANGLE 
NUMBER  ARE  TO  B"  STORED  AS  THE  (3*IL-2)ND, 

(3*IL-1)ST,  AND  (3*IL)TH  ELEMENTS, 

IL=1,2,...,  NL. 

THE  OTHER  PARAMETERS  ARE 

IWL  = INTEGER  ARRAY  OF  DIMENSION  13*N0P  USED 
INTERNALLY  AS  A WORK  AREA, 

IWP  = integer  ARRAY  OF  DIMENSION  NDP  USED 
INTERNALLY  AS  A WORK  AREA, 

WK  = ARRAY  OF  DIMENSION  NOP  USEO  INTERNALLY  AS  A 
WORK  AREA. 

DECLARATION  STATEMENTS 

DIMENSION  XO«53» .YOCS  ) ,IPT  <285) ,IPL<3: J) ,1WL(9,E), IWPCEt ) ,WK(5C ) 
DIMENSION  ITF(2) 

OATA  RATIO/1. OE-t/,  NREP/100/,  LUN/6/ 

C STATEMENT  FUNCTIONS 

DSQF(U1,V1,U2,V2)=(U2-U1)**2+(V2-V1)»*? 

SI0E(U1,V1,U2,V2»U3,V3)=( V3-V1I*(U2-U1)-(U3-U1)*(V2-V1) 

C PRELIMINARY  PROCESSING 
10  NOPO=NDP 

NOPM1=NOPO-1 

IFINOPE .LT.4)  GO  TO  93 

C DETERMINES  THE  CLOSEST  PAIR  OF  OATA  POINTS  AND  THEIR  MIDPOINT. 

20  OSQMN=OSQF<XU(l) , YD ( 1) , XO (2 ) , YOl 21 1 
IPMN1=1 
IPMN2=2 

00  22  IP1=1,N0PM1 

X1=XD(IP1) 

YlsYO(IPl) 

IP1PI  = IP1-H 

00  21  IPZalPloi.NDP J 

DSQtaOSOF<Xl,Yl,X' (IP2) ,Y0<IP2) ) 

IF(OSQI.EQ.u.;)  GO  TO  91 

IFIOSQI.GE.OSOMN)  GO  TO  21 
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OSQMNsOSOI 

IPMSlsIPl 

IFMN2SIP2 

21  CONTINUE 

22  CONTINUE 
CS012s0SQMN 

XDMPs  (XDdPNNi)  ♦XO<IP^N2n/2.0 
YOMPstYOlIPKNlJ ♦YO«IPMN2) >/2, J 
C SORTS  THE  OTHER  (NOP-2)  OATS  POINTS  IN  ASCENC.ING  OROEP.  OF 
C distance  FROM  THE  NIOFOINT  AND  STORES  THE  SORTED  DATA  FOINT 
C NUMBERS  IN  THE  INF  ARRAY. 

30  JP1S2 

DC  31  I?1=1,NOPO 

IF(IPl,EQ.IPrtN1.0R.IPl,£a.IPrtN2)  GO  TO  31 

JR1=JP1*1 

INP(JP1)*IP1 

WK(JPl>=OSQF<  XCM?,YrMP,XDaPl>  ♦YDIIPI)  ) 

31  CONTINUE 

DO  33  JPls3»N0PNl 
OSQMNsMKfJPl) 

JPMN=JP1 

CO  32  JP2=JP1,N3P0 

IF(HKUP2»»GE.0SQ«N)  GO  TO  32 

OSQ.-IN=MK<  JP2) 

JPMN=JP2 

32  CONTINUE 
ITSsINPlJPl) 
lWP(JPl)sINP<JPMNJ 
IWP<JPMNI=ITS 

M<( JPNN)sMK(JPl> 

33  CONTINUE 

C IF  necessary,  MODIFIES  TH’  ORDERING  IN  SUCH  A HAY  THAT  THE 
C FIRST  THREE  DATA  POINTS  A^E  NOT  COLLINEAR. 

35  AR=DS012*RATI0 
X1*X0<IPMN1» 

YlsYDdPMNll 
DX21=XD(IPMN2»-X1 
0Y21=Y0<IPMN2>-Y1 
DO  36  JP*3,NOPij 

IP=IWPJJP) 

IF(A8S( (YO( IPI-Yll *0X21-1 XOCIP> -XI) ♦0Y21) .GT.AR) 

1 GO  TO  37 

36  continue 
GO  TO  92 

37  IF(JP.£').3)  60  TO  ^0 

JPMX=JP 

JP»JPMX*1 
DO  3S  JPCsRtJPMX 
JP*JP-1 

IMP(JP)sIMP(JP-l) 

36  CONTINUE 
lMPI3)sIP 

C FORMS  THE  FIRST  TRIANGLE.  STORES  POINT  NUMBERS  OF  THE  YER- 
C TEXES  OF  THE  TRIANGLE  IN  THE  IPT  ARRAY,  AND  STORES  POINT  NUM- 

c 8ERS  OF  The  border  line  s-gnents  ano  the  triangle  number  in 
C THE  IPL  ARRAY. 

<f0  IPlsIPMNl 
IP2*IPNN2 
IP3»IHP(3) 

IFISIOEfXOdPlI  ,YU(I?1)  ,XOf  IP2I  ,YO(IP2)  ,X0(IP3)  , Y0dP3)  ) 

1 .GE.3.0)  GO  TO  A1 

1P1»IPMN2 
IPEsIPMNl 
<>1  NT0«1 
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NTT ja3 
IPT (l)=IPl 
IPT (2)=IP2 
IPT  ( JJ  = IP3 
nl;  = 5 
MLT3=9 
IPL(U  = IP1 
IPL(2)=IP2 
IPL  (3)  = 1 
IPL(4»=IP2 
IPL (5)=IP3 
IPL (ojsl 
IFL«7I=IP3 
IPL  «3)  = IP1 
IPL(9)=1 

C ADDS  THS  RFMAINING  <.N0P-3i  DATA  POINTSt  ON£  dY  ON£, 

50  DC  79  JPl=u,N3P': 

IPirIWP(JPll 

Xt=XQ(IPl) 

Y1=YD(IP1) 

C - OETeRfllNeS  THt  VISIBLE  OORDFR  LINE  SEGMtNTS. 

IP2=IPL(1» 

JPNN=1 

0Xi-|N=XD(IP2»-Xl 
OYMN=YO(IP2>-Yl 
0SQMN=0XMN**2*0YMN**2 
ARNN=JSQMN*RATIO 
JPMX=1 
DX1-»X=DXMN 
CYMXsOYMN 
OSQNX=OSQHN 
ARMX=ARHN 
DO  52  JP2=2,NLj 
lP2=IPL(3*JP2-2) 

0X=X0(IP2)-X1 

OY=YO(IP2)-Yl 

AR=OY*OXMN- OX*OYMM 

IFtAR.GT. ARMN)  GO  TO  51 

OSQI=OX**2*OY»*2 

IFCAR.GE. <-ARHN) .ANO.DSQI.GE.OSQHN)  GO  TO  51 

JPHN=JP2 

DXMNsOX 

OYMNsDY 

OSQNNsDSQI 

ARNNsOSQMN^RATIO 

51  ARsOY*OXMX-CX*DYMX 

IFIAR.LT. I-ARKX>)  GO  TO  52 

0SQI=0X**2*DY**2 

IFIAR.LE.ARHX.ANO. OSOI.GE.DSONX)  GO  TO  52 

JPMXSJP2 

OXHXsOX 

OYMXsOY 

OSQNX=OSQI 

ARMX=OSQMX*RATIO 

52  CONTINUE 

IF(JPNX.LT.JPMN)  J?MX»JPHX*NLu 
NSH=JPMN-1 

IFINSH.LE.C)  GO  TO  60 

C - SHIFTS  (ROTATES)  THE  IPt  ARRAY  TO  HAVE  THE  INVISIBLE  BORDER 

C - LINE  SEGMENTS  CONTAINED  IN  THE  FIRST  PART  OF  THE  IPL  ARRAY. 
NSHT3*NSH*3 

DO  53  JP2T3»3,NSHT?,3 

JP3T3»JP2T34NLT3 
IPL(JP3T3-2)»IPL(JP2T3-2) 
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IPIL<  JP3T 3-11=1^1  (JPrT* -II 
IPL(JP3T3)  =IPL(JP^T7I 
rO'JTI'JUE 

DO  54  JP2T3=3,NLT7,3 

Jf’3TJ  = jP2T?*NSHT3 
IPHJP2T3-ri=IPt  UP3T3-C) 

If-L(  JP2T3-i)=IPHOP3T5-l) 

IPL(JP2T3)  =1PL0P3T3) 

54  CO'ITIW' 

JPMX= JPMX-NSH 

C - ADDS  TRIAMGLE3  TO  TH£  1*1  AtRRAT,  UPDATES  9CPCER  CIUE 
C - segment:  in  the  IPL  array,  AMC  sets  flags  FOF  THE.  BORD-R 
C - LINE  SEGMENTS  TO  SE  REEXflMlNEJ  IN  THE  IWL  ARRAY. 

6t  JWL=: 

DO  6^  JP2  = JPMX,NLi' 

JP2T3=JP2*3 

IPLi=IPL(JP2T3-2) 

IPL2=IPL ( JP2T3-1) 

IT  =IPL<JP2T3) 

C - - ACCS  A TRIANGLE  TO  TH  IPT  ARRAY. 

NTCsNTO^l 
NTT3=NTT3+3 
IPT(NTT3-2)sIPL2 
IPTINTT3-1)  =1PH 
IFTtNTT3)  sIPl 

C UPDATES  BORDER  LINE  3-:GHENTS  IN  THE  IPL  ARRAY. 

IF( JP2,NE.JPMX)  GO  TO  61 

IPL( JP2T3-1) =IP1 
IPL<JP2T3)  =NTa 

61  IF( JP2,NE.NLul  GO  TO  62 

NLN=JPHX*1 

NLNT3=NLN^3 

IPL(NLNT3-2)sIPl 

IPL(NLNT3-1)=IPL(:) 

IPLINLNT3)  =NTC 

C DETERMINES  THE  VERTEX  THAT  DOES  NOT  LIE  ON  THc  BORDER 

C LINE  SEGMENTS. 

62  ITT3=IT*3 
IPTI=IPT(ITT3-?} 

IF(IPTI,NE.IPL1.AM0.IFTI,NE,IPL2I  GO  TO  63 
IPTI=IPT(ITT3-1) 

IFIIPTI.NE.IPLl. AND, IPTI,NE,IPL2)  GO  TO  63 
IPTI=IPT(ITT3I 

C - - CHECKS  IF  THE  EXCHANGE  IS  NECESSARY. 

63  IFaOXCHG<XD,YD,IPl,IPTl,IPLl,IPL2)  .EQ.O)  GO  TO  6*, 

C MODIFIES  THE  IPT  ARRAY  WHEN  NECESSARY. 

IPT{ITT3-2)=IPTI 
IPT(ITT3-1)=IPL1 
IPTCITTS)  =IP1 
IPT«NTT3-1)=IPTI 

IFCJP2.EQ.JPMX)  IPL(JP2T3)=IT 

1F(JP2.EQ.NLO.ANO. IPL (3  I .EQ. IT)  IPL(3I=NTC 

C - - SETS  FLAGS  IN  THE  IWL  ARRAY. 

JHLsJML«4 
IHL(JML-3I=IPL1 
IHL(JML-2)*IPTI 
IWHJHL-1)  = IPT1 
IWLCJHL)  =IPL2 

64  CONTINUE 
NLa=NLN 
NLT3=NLNT3 
NLF=JWL/2 

IF(NLF.EQ.C)  GO  TO  79 

C - IMPROVES  TRIANGULATIOH. 
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NTT  3P  5 = NTT3-»3 
01  78  IR£P  = l,IJPr_P 
jO  76  ILF  = l,faF 
ILFT?=ILF*2 
IPL1=1WL( ILFT2-: » 

IPL?=IWL(ILFT2> 

LOCaT!^;  IN  THE.  IPT  A^flY  TWC  TRIANGLtS  C N COTri  SIDES  OF 
THE  FLAGGED  LINT  3EGM  NT, 

:JTF  = 'j 

O')  71  ITT3P  = 3,r.TT3,3 
ITT3  = NTT3P3-n  T?k 
IPT1=IPT (ITT3-C) 

IPT2=IPT (ITTI-l) 

IPT3=IPT(ITT3) 

IF(IFLl.NE.IP^l.atd’.IPLl.NE.IFT2.Af.D. 

L IFLl.NE.IPT 7J  GO  TO  71 

IF(IPL2.iN£.I°n.A\D.IPL2.NE.IPT2.ANO, 

L IPL2.N£.IPT 7)  GO  TO  71 

NTF=NTF+1 


ITF<NTF)=ITT3/.? 

IF(NTF.EU.2) 

CONTINUE 

IF(NTF.LT.2) 


GO  TO  7< 


C - - 


IF(NTF.LT.2)  go  to  7'.. 

LETERHINES  THE  VERTEX  S OF  THE  TRIANGLES  THAT  00  NOT  LIE 
CM  THE  LIME  SEGMENT. 

IT1T3=ITF(1)*3 
IPTI1=IFT (ITlT3-?» 

IF(IPTI1.M£.IPL1.A,NL.IPTI1.N£.IPL2)  GO  TC  73 

I°TI1=IFT  (IT1T3-1) 

IFdPTIl.ME.IPLl  .AfiD.  IPTIl.NE.IPLZ)  GO  TC  73 

IPTI1=IPT(IT1T3) 

IT2T3=ITF (2)*3 
IPTI2  = IPT  (IT2T3-2) 

IF(IPTI2.M£.IPLS . AND. 1PTI2.NE.IPL2)  GO  TO  7L 

IPTI2  = IPT  tIT2T3-l) 

IF(IPTI2.N£.IPLl.ANr.IPTI2,NE.IPL2)  GO  TO  7A 

IPTI2  = IPT  (IT2T3) 

CHECKS  IF  THE  EXCHANGE  IS  NECESSARY. 

IF(I0XCHG<XJ,YC,IPT11,IPTI2,IPL1,IPL2) .EQ.O) 

1 GO  TO  76 

MODIFIES  THE  IPT  A^RAV  HHf N NECESSARY. 

IPT (IT1T3-2)=IPTI1 
IPT(IT1T3-1)-I?TI? 

IPT(IT1T3)  =IPll 
IPT(IT2T3-2>=IPTI? 

IPT(IT2T3-1)=IPTI1 
IPT(IT2T3)  =IPL2 
SETS  NEW  FLAGS. 

JWL=JML+9 
IHL (JML-7)=IPL1 
IML(JML-6»=IPTI1 
IHL( JML-5) =IPTI1 
IHLiJML-A) =IPL2 
IWL  tJHL-3)=IPL2 
INL<JWL-2)=IPTI2 
IWL<JML-H=IPTI2 
IWL(JML)  =IPL1 
00  75  JLT3=3,NLT 3,3 
IPLJ1SIPLCJLT3-2) 

IPLJ2»IPL(  JLT7-U 

IF<  <1PLJ1.EQ.IPL1.ANO.IPlJ2.EO.IPTI2) .or. 

1 <IPLJ2,EQ. IPLl.AND.IPLJl.EO.IPTIZ) ) 

2 IPL<JLT3>=ITF(1» 

IF< (IPLJi.EO.IPL2.ANO.IPLJ2.EC.IPTIl) .OR. 


1 


1 (IPLja.EQ.TOLt.ANO.IPLJl.EQ.IPTIl) ) 

2 IPL(JLT3»=ITF(2)  ^ 

75  CONTINUE  i 

76  CCNTINUE  \ 

NLFC=NLF 

NLF=JWL/2 

IF(NLF,EQ.NLFC)  GO  TO  79  ’ 

C - - RESETS  THE  IML  ARRAY  FOR  THc  NEXT  ROUtJL. 

JML  = 0 

JHtlHN= (NLFC+1)*’  j 

NLFT2=NLF*2 

00  77  JhLl=JWLlHN,NLFT2,2 

JHL=JHL+2  I 

I.<L(JWL-1I=IWL(JHL1-1» 

IHL(JML)  =IML(JWL:)  1 

77  CONTINUE  1 

rjLF  = JHL/2  j 

78  CONTINUE 

79  CONTINUE  ; 

C REARRANGES  THE  IPT  ARRAY  SO  THAT  THE  VERTEXES  OF  EACH  TRIANGLE 

C ARE  LISTED  COUNTER-CLOCKWISE. 

80  00  31  ITT3=3,NTT3,3 

I°1=IPT EITT3-2)  ; 

IP2=IPT(ITT3-1) 

IP3=IPT (ITT3) 

IFESIOE (XO(IPl) ,Y0(IP1) ,X0(IP2I tY0(IP2) ,X0(IP3) ,Y0 (IP3) ) 

GO  TO  81 


NOP. 

NOP, ,IP1,IP2,X1,Y1 
NOP.; 


NPP  LESS  THAN  4./3H  NOP  =,I5) 
IDENTICAL  DATA  POINTS./ 

1 8H  NOP  =.I5,5X,5HIP1  = , 15, 5X ,5HIP2  =,I5, 

2 5X,4HXD  =,E12.4,5X,«»HYC  =,E12.4» 

2092  F0R.NAT(lX/3iH  ***  ALL  COLLINEAR  DATA  POINTS./ 

1 8H  NOP  =,I5» 

2093  FORHAT(35H  ERROR  OETECTEO  IN  ROUTINE  lOTANG/) 

ENO 


1 . GE . j . '3 ) 

I?T(ITT3-2I=IP2 
IPT(ITT3-1)=IP1 
81  CONTINUE 
N7=NT; 

nl=nl: 

RETURN 
C ERROR  EXIT 

90  WRITE  (LUN, 20931 
GO  TO  93 

91  WRITE  (LUN,2091) 
GO  TO  93 

92  WRITE  (LUN,2092» 

, 93  WRITE  (LUN,2C93) 

NT=  ) 

RETURN 

C FORMAT  STATEMENTS 
2090  F0RMAT(IX/23H 
2C91  FORMAT (1X/29H 


i 
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function  IDXCHG(X,Y,Ti»Ic,I3»l4l 
THIS  FUNCTION  DETERMINES  WHETHER  OR  NOT  THE  EXCHANGE  CF  TWO 
TRIANGLti  IS  NECESSARY  04  THE  '^ASIS  OF  MAX-MIN-ANGLE  CRITERION 
8Y  C.  L.  LAWSON. 

THE  INPUT  parameters 

X.Y  = ARRAYS  C0NTAI4I^:G  THt  COORuINATES  OF  THE  CATA 
POINTS, 

11,12,13,14  s POINT  NU''3ERS  OF  FOUR  POINTS  Pi,  P2 , 

P3,  AHL  P4  THAT  FORM  A QUADRILATERAL  WITH  P3 
AND  P4  CONNECTED  DIAGONALLY. 

THIS  FUNCTION  RETURNS  AN  INTFGtfi  VALUE  1 (ONE)  WHEN  AN  EX- 
CHANGE IS  NECESSARY,  ANO  ^ (ZERO)  OTHERWISE. 

DECLARATION  STATEHENTS 

DIMENSION  XdCj)  ,Y(irC) 

equivalence  (C2SQ,C1SN)  , ( A3S(5,02Sa)  ,(H3SQ,AlS'i)  , 

1 (A4SQ,BiSn) , (D4SQ,A2Sa) , (C4SQ,C3SQ) 

C PRELIMINARY  PROCESSING 
1C  X1=X(I1) 

Y1=Y(I1) 

X2=X(12) 

Y2=Y(I2) 

X3=X(I3) 

Y3=Y(I3) 

X4=X  (14) 

Y4=Y(I4) 

C CALCULATION 

2C  IOX=0  ) 

U3=(Y2-Y3)*(X1-X3) -(X?-X3)*(V1-Y3)  ( 

U4r (Y1-Y4)*(X2-X4)-(X1-X4)» (Y2-Y4) 

IF(U3*U4.LE.0.u)  GO  TO  Si 
Ul=  (Y3-Y1)*(X4-X1) -(X3-X1) •(Yt-Yl) 

U2= (Y4-Y2)*(X3-X2)-{X4-X2)» (r3-Y2) 

A1SQ= (Xl-X3)**2+ (Yl-Y3)**2 
B1SQ= (X4-X1)**2*(Y4-Y1) ••2 
ClS0=(X3-X4)**2+(Y3-Y-)**2 
A2S0=(X2-X4)**2+(Y2-Y4)**2 
82SQ=(X3-X2)**2+ (Y3-Y2) •»2 
C3SQ= (X2-X1)**2* (Y2-Y1)**2 
S1SQ=U1*U1/ (C1SQ*AMAX1 ( AISQ.BISQ) ) 

S2S0=U2»U2/(C2S0*AHAX1 (A2SQ,82Sai ) 

S3SQ=U3*U3/(C3SQ*AMAX1 {A3SQ,33SQ) ) 

S4SQ=U4*U4/ (C4SQ*AMAX1 ( A4SQ.B4SQ) ) 

IF( AMIN1(S1SQ,S2SQ) .LT.AMIN1(S3S0,S4S0) ) lOXsl 

30  IOXCHG=IOX 
RETURN 
END 


I 
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DLCCK  DATA  RMSVAk 

common/stats/  VARE^(1  ) ,V(:R0<19)  ,WARU(19) 

CCMMON/RMSERR/  RMS*1(1:>),  F.M50I19),  RMSU(19» 

c 

C THIS  PLOCK  DATA  ROUT H - INITIALIZES  ARRAYS  THAT  ARE  USED  IN  YARNCE 
C AMY  array  starting  WITH  VAR  CONTAINS  THE  3P ATI AL t T EMPORAL 

C VARIANCE  WHILE  ANY  ARRAY  STARTING  WITH  RMS  CONTAINS  THE  P.MS 

C ERROR  DUE  TO  APPROXIMATION, 

C 

0ATA((VAREM(I»,Isl,19)=  lL52t>7.8,  79316,02.  45394,56.  46173,41. 
A9d721.64.  29264,33.  &'772.11.  63429,42.  8445,61,  52967,43. 
8140:4,35,  15956,74.  177662,25,  16095,99,  367745,21,  1033475,56, 
C17795.56,  524C8.94,  17 2273 0 . 01) 

DATA(  (VARO(I) ,I=l,19)r  5e6.75,  219,45,  156.66,  364,24,  597.99, 
A472.32,  257.51,  329.12,  392.2,  311.59,  289.88,  246.44,  936.36, 
3104.4:,  2305. ce,  2061.25,  653,62,  525.14,  1694.06) 


data ( (VARUI I) ,1=1,19)=  »42.139,  203. 4C4,  45.469,  34,272,  139.523, 
A69.455,  136.435,  9:. 9 2,  89.332,  143.928,  173.633,  174.266,  25.654 
B,  5.317,  10.9733,  2.2:9,  8.3065,  16.6116,  24.7227) 


DATA( (PMSM(I) ,1=1,19)=  133.7613,  164.5969,  2:1.3244,  62.91451, 
A265.6d5,  99.6568,  ^6.  5775,  152.3354,  232.59,  231.0106,  34C.4535, 
8273.2379,  1069. 833,  li-..2L7:,  719,5064.  599.507,  354.53,  735. 97t, 
C2514.26) 

CATAMRMSDII) ,1=1,19)=  6.7377,  6.496141,  14.31099,  4.2459,  29.859, 
A9. 13922,  8.42474,  7.2°46,  39.25434,  39,17399,  27,5355,  14,9775, 
855.5507,  13.4925,  32.452,  120.7981,  43.26675,  54.3363,  199.90) 

OATA( (RMSUCII ,1=1,19)=  11.8857,  e.72a37,  6.83379,  4.2615,  4.9125, 
A4.5647,  5,0965,  7.953317,  5.882C4,  17,6811,  14.1378,  11,34136, 
C2,720C7,  1.33245,  1.93279,  1.043111,  3.166367,  2.438,  5.9155) 

END 


BLOCK  DATA  PERCNT 
C 

C THIS  SUBROUTINE  INITIALIZES  ARRAY  PCT  IN  COMMON/RRATE/. 

C 

COMMON/RRATE/RR  (12)  ,VRR(12)  ,PCm2) 

OATA( (PCT(I) ,1=1,12)=  51,  .015,  .02,  .03,  .05,  .36,  .1,  .2,  .5, 

1 .8,  1.,  .001) 

END 
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fcLCCK  OaTft  TABL'S 


TH15  .LOCK  UATA  SU'^^UUTIrii  C3MTAINS  THE  CO-O'^OIf^ATESt  ELEVATION, 
ANO,  THE  HETc  O-'LLT.  rCAL  UATA  OF  35^  STATIO'13  LGOATEO  WITHIM  THE 
FOLITICAL  BOUNOAa  S OF  THE  U.S..  THE  SUBROUTINE  TABLUS 
UTILIZES  THI*^  lATA  jAE-  TO  FIND  TH-  CLOSEST  SET  OF  THESE  DATA 
JfATIONS  TO  TH^  TNT 'c-f  ^L  ATEO  POINT  - THE  OtSIRED  LOCATION  FOF 
the  NICkOWAVE  LINK.  THIS  SET  OF  OATA  PCItITS  IS  THEN  USED  OY 
THE  INTERPOLATION  -OUTINc  lOBVIP  TO  INTcKPOLATt  FOR  ANY  NEEDED 
r'ATA, 

COMMON/ OATPT/OATAFK  3- 9,1.) 
ofsoription  of  the  AR-AY  OATAPT 

EACH  CATAPT  CCRRESPON' S TO  A STATION  LISTEl  IN  THE  WPITtUP,  (I.E. 
STATION  1 COPRESPONOS  TO  OATAFT  1,  ETC.).  THUS,  FOR 
STATION  (L)  THE  P03ITICN,  ELEVATION  AND  METEOROLOGICAL 
INFORMATION  IS  CONTAINED  IN  OATAPT(L,I).  THE  INFORMATION  IS 
COOEO  AS  FOLLOWS, 

1=1 

DECIMAL  LATITUDE  OF  THE  STATION 

I = E 

DECIMAL  LONGITUDE  OF  THE  STATION 

1=3 

ELEVATION  OF  THE  STATION 

1 = 4 

AVERAGE  ANNUAL  PRESSURE  OF  THE  STATION 

1 = 5 

AVERAGE  ANNUAL  TEMPERATURE  OF  THE  STATION 

I=& 

AVERAGE  ANNUAL  RELATIVE  HUMIDITY  OF  THE  STATION 

1 = 7 

AVERAGE  ANNUAL  PRECIPITATION  OF  THE  STATION  - M 

1 = 3 

AVERAGE  NU^1BE,n  OF  DAYS  PER  YEAR  WITH  PRECIP.  GREATER  THAN 
.25  MH.  - 0 

1 = 9 

AVERAGE  NUMBER  OF  THUNDERSTORM  CAYS  PfR  YEAR  FOR  THE 
STATION  - U 

1=10 

GREATEST  MONTHLY  PRECIPITATION  RECORDED  IN  3C  YEARS  - EMAX 


THE  BLOCK  OATA  SUBROUTINE  IS  PARTITIONED  AS  FOLLOWS, 

STATIONS  NUMBERED  1 - 329  ARE  LOCATED  IM  THE  CONTINENTAL  U.S, 
STATIONS  NUMBERED  73C  - 355  ARE  LOCATED  IN  ALASKA 
STATIONS  NUMBERED  356  - 359  ARE  LOCATED  IN  HAWAII 


DATAIDATAPTC  1 , I ) • 1=1 ,1 0) / 33.05,  86.92, 
,720,1352,00,  118.33,  58.30,  4h9.03/ 

OATA(OATAPT(  2 , I) , 1=1 , 1C ) / 34.73,  86.58, 
,743,1325.30,  123.?:,  59.00,  375.00/ 

DATA(OATAPT(  3, I) . 1=1 , 10 ) / 30.37,  80.38, 
.730, 1701. OE,  12H.a0,  80. 3C,  490.03/ 

OATA(OATAPT<  4 ,1) , 1=1 , 1 C ) / 32.37,  96.33, 
#720,1266.33,  139.0 i,  6c. 30,  542.30/ 
OATAIOATAPTI  5 . I ) , 1=1 , 10 ) / 35.20,111.63, 
.530,  49Q.0C,  75.00,  51.00,  250.00/ 

CATAIDATAPTI  6,11,1=1.10/  33.50,112.05, 


189.33,  991. CO,  16.9CC', 
190. OC,  990.80,  16.000, 
6o.C0,13C5.70,  19.7CC, 
59.30,1006,30,  18.2CC, 
2135.03,  781.43,  7.40C 

3'»9.03,  974.23  , 21.3CC, 
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X.  *3')** 

9 

3*9  9 'j  J 9 

22.. 3,  141.00/ 

OATA<OATAPT« 

7 

,I> ,1=1 

tlcl/  32.25,114.95. 

798.00 

, 924.40, 

1 .<>Zb,  ZSl.OO 

9 

^ U 9 0 J 9 

-0.00,  201.00/ 

OATA(OATAPT< 

6 

,11,1=1 

,1C1/  35.02,113.72, 

149.»,30 

9 S4  4 9 C 0 9 

1 •51^9  ld6«Jb9 

52.31, 

76..:,  142. OC/ 

OATAIDATAPTJ 

9 

,11,1=1 

,101/  32.67,114.65, 

59.0  0 

,1006. 4C, 

1 (>d*OC 

9 

1;  9 0 3 9 

79CO9  06900/ 

OATACDATAPK 

13 

,11,1=1 

,101/  35.37,  94.45, 

136.00 

, 997.10, 

1 .66'^,1J74.;0 

9 

96 . ! 2 , 

356. :c/ 

OATAIOATAPT  ( 

11 

,11,1=1 

,1:1/  34.7.,  92.29, 

79.30 

,1034.00, 

1 .690,1Z3Z.0C 

9 

104.00, 

58.30,  367.00/ 

OATAiOATAPT i 

12 

,11 ,1=1 

,101/  33.47,  94.03, 

119.30 

, 999.20, 

1 .c92,lZ49,0C 

9 

96.11, 

6?. .3,  423.33/ 

OATA(nATAPT( 

13 

,11,1=1 

,131/  35.33,118.87, 

14';. 30 

, 996.20, 

1 .530,  145.00 

9 

36  9 3 3 9 

3.00,  117.00/ 

OATA(OATAPT ( 

14 

,11,1=1 

,131/  37.33,118.4., 

1252. J : 

, 872. dC, 

1 .Z90,  145. OC 

9 

29.13, 

13. ..C,  227.30/ 

OATA(OATAPT< 

15 

,11,1=1 

,1C1/  39.13,118.75, 

1639.03 

9 d3H  9 & 0 9 

1 .470,1717. OC 

9 

9 j 9 C Q 9 

12.00,1146.00/ 

OATA(OATAPTJ 

16 

,11,1=1 

,1C1/  40.82,124.17, 

13.  Ju 

,1311.70, 

1 .633,1010. 1C 

9 

116.31, 

5.^0,  421. CO/ 

OATA(OATAPT ( 

17 

,11,1=1 

,131/  36.68,119.78, 

1 3 . 0 3 

,1001.40  , 

1 *6209  263*0C 

9 

44.33, 

E.OC,  217.00/ 

DATA(OATAPT( 

11 

,11,1=1 

,101/  33.78,116.25, 

).  03 

,1012.30 . 

1.  •62^J9  26l.i«0.. 

9 

31. c:. 

4.jC,  285.33/ 

OATA(OATAPT< 

19 

,11 ,1=1 

,131/  34.03,118.25, 

3j.00 

,1039.70, 

1 .670,  Z94.00 

9 

35. G3, 

3.00,  281.30/ 

OATA(OATAPT ( 

2C 

,11,1=1 

,101/  34.25,116.50, 

62.:: 

9ldt396w9 

1 .591,  357.34 

9 

3^9^39 

6 9 w tj  9 3799m^/ 

OATA(OATAPT( 

21 

,11 ,1=1 

,lul/  41.32,122.33, 

i;63.33 

, 889.50, 

1 .600,  952.00 

9 

91.00, 

13.^0,  447*03/ 

OATA(OATAPT( 

22 

,11,1=1 

,11/  37.83,122.25, 

2. 

,1013. :3, 

1 #7709  ^75aOL 

9 

64  9 3 w 9 

Z9'''C9  2d790u/ 

CATA(OATAPT ( 

23 

,11 ,1=1 

,131/  40.18,122.27, 

1 !<-.  OC 

,100  3.90  , 

1 .520,  560.00 

9 

71.33, 

10.00,  289.00/ 

OATA(OATAPT ( 

24 

,11,1=1 

,131/  38.53,121.50, 

5.0  0 

,1312.70, 

1 96709  437*  >3  29 

56. C], 

5.33,  321.30/ 

OATAJOATAPTC 

25 

,11,1=1 

.101/  34. 7C, 118. 60, 

1377.00 

, 859.60, 

1 .<,33,  304.00 

9 

40. C3, 

4.00,  289.00/ 

OATA(OATAPT  < 

26 

,11,1=1 

,101/  32.75,117.17, 

4.  jO 

,1012.83 , 

1 #66^9  2439^^9 

41. C 3, 

3.30,  193,::/ 

OATA(OATAPT( 

27 

,11 ,1=1 

,101/  37.75,122,45, 

2.  J l 

,1013.00, 

1 .750,  496.10 

9 

62.33, 

2.00,  312.00/ 

DATA<OATAPT( 

26 

,11,1=1 

,1:1/  37.92,122.50, 

15.30 

,1011.39, 

1 .760,  525. OC, 

6d 9 C j 9 

C.jO,  291.33/ 

OATAOATAPK 

29 

,11,1=1 

,131/  33.42,118.42, 

473.03 

, 957.70, 

1 .710,  365.00 

9 

4 2 9 w 9 

4.00,  190.00/ 

OATAIOATAPT ( 

30 

,11 ,1=1 

.101/  34.93,123.42, 

72.  .0 

,1334.60* 

1 .710,  311.01 

9 

45.33, 

2.J3,  246.03/ 

DATAilATAPTt 

31 

,11,1=1 

,1:1/  37.98,121.33, 

7.00 

,1312.40, 

1 .630,  360.00 

9 

52.03, 

3,00,  204.00/ 

2297. j3 

OATAIDATAPTI 

32 

,11,1=1 

,101/  37.47,105.90, 

. 764.53, 

1 .590,  176. JU 

9 

68.00, 

44.30,  89.33/ 

OATACOATAPTI 

33 

,11 ,1=1 

,1C1/  38,83,104.83, 

1673.00 

, 807.80, 

1 .490,  400.00 

9 

86.00, 

59.00,  203.00/ 

OATA(OATAPT( 

34 

.11 ,1=1 

,101/  39.75,105.33, 

1 6 1 „ 9 i Oi 

, 634.55, 

1 .510,  394.00 

9 

98.03, 

41.33,  186.03/ 

OATAIOATAPTC 

35 

,11,1=1 

flCl/  39.07,138.55, 

1476.00 

9 0409  9 0 9 

1 .510.  214.90 

9 

71.00, 

35.30,  88.00/ 

OATAIOATAPT! 

36 

,11,1*1 

,101/  36.29,134.63, 

1429.  3. 

. 853.83, 

X #5*339  3039wC9 

73.3;, 

4i,03,  157,30/ 

OATAIOATAPT! 

37 

,11,1=1 

,1C1/  41. 2Q,  73. 2C, 

2.00 

9IOI39OO9 

1 .670,  981.00 

9 

118.00, 

21.00,  450.00/ 

OATAIOATAPT! 

38 

,11,1=1 

,101/  41.75,  72.70, 

52.  jC 

,1336.99, 

19.90i!. 


12.9C&. 
Z3.ecc, 
1&.3C0. 
16. ICC, 
17,9Cfc, 
18.3CC, 
13.3CC, 
10. ICO, 
11. 2C}, 

16.600, 
17.4:C, 
16.500, 

18. zee, 

9.600, 

14.100, 

17.100, 
15.7tC, 
1Z.8CC, 
17. zee, 

13.600, 
13.7C0  , 

16.100, 
13. B C 0 , 
15.900, 

5.3CC, 
9. ICO, 
10.100, 
11. SCO, 
11.630, 
11.100, 
9. see. 
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n 


1 


I 

( 

I 


i .68L-,  909. CC.  112.03.  4a.U0« 

OATA(OATAPTI  71 . I) . 1=1 . 1 0) / 40. 

1 .710,  391. OC,  112.03,  49.00, 

OATA(OATAPT(  72,1) ,Isl,10)/  42. 

1 .70u,  933. CO,  115.03,  42.00, 

DATA(OATAPT(  73,1)  ,1=1 ,10/  39. 

1 .b90,  390.00,  113.00,  50.00, 

OATAIOATAPTt  74, I) ,1=1 , 1 3) / 38. 

1 .699,1364.03,  115. J3,  4b. JO, 

DATA(OATAPT(  75 , 1) ,1=1 , 10) / 41. 

1 .790,  909.00,  132.03,  41.30, 

0ATA(DATAPT(  76, I), 1=1, 10)/  39. 

1 .673,  984. OC,  123.33,  45.90, 

OATAiOATAPH  77 ,1)  ,1=1 , 1C)  / 41. 

1 .720,  919. Oii,  142.00,  43.00, 

OATAtOATAPTt  78,1)  ,1  = 1,10/  40. 

1 .710,  880. OC,  104. 3J,  51.30, 

OATA(OATAPT(  79,1) ,1=1,10)/  41. 

1 .690,  784.00,  106.03,  51.00, 

0ATA(0ATAPT(  80,1) ,1=1,10)/  42. 

1 .710, 1323. uC,  114. CJ,  45.33, 
OATAIOATAPTt  81 , 1) , 1=1 , 1C ) / 42. 

1 .790,  654.00,  99.33.  46.30,' 

OATA(OATAPT(  82 , I) ,1=1 , 1 3 ) / 42. 

1 .710,  357. OC,  98.93,  41.03, 

DATA(OATAPT(  83 , I) ,1=1 , 1C) / 39. 

1 .670,  701.90,  99. C9,  59. CO, 

OATA(OATAPT(  84, I) ,1=1 , 10 ) / 37. 

1 .593.  523.90.  78.03,  53.30, 

OATAtOATAPTt  85 , I) , 1=1 , 10) / 39. 

1 .600,  423.00,  76.00,  49.00, 

OATA(OATAPT(  86 ,1) ,1=1 ,10 )/  39. 

1 .680*  380.00,  95.03,  58.30, 

OATA(OATAPT(  87, I) ,1=1 , 1C) / 37. 

1 .640,  777.00,  84.00,  55.00, 

OATA(OATAPT(  88,1) ,1=1,10)/  39. 

1 .640*  992.3C,  129.33,  44.30, 

OATA(OATAPT(  89,1)  ,1=1,10  / 38. 

1 .700,1130.00,  131.00,  47. CC, 

OATAIOATAPTi  90.1) ,1=1 ,10)/  38. 

1 .680,1395.30,  125.09,  45.30, 

OATAIOATAPTI  91,1) ,1=1,10)/  31. 

1 .760.1373.00,  107.03,  69.30* 

OATAIOATAPTI  92,1)  .1*1.10/  30. 

1 .743,1373.30*  107.30,  70.39, 

OATAIOATAPTI  93,1) ,1=1 ,1C)/  30. 

1 .780,1409.00,  96.93,  78.00, 

OATAIOATAPTI  94,1)  ,1=1,10  / 30. 

1 .760*1442.00,  114.39,  69.30, 

OATAIOATAPTI  95, I), 1=1, 10)/  32. 

1 .690,1136.00,  97.00,  54.00, 

OATAIOATAPTI  96,1) ,1=1 ,10) / 46. 

1 .710,  910. OC,  163.33,  23.09, 

OATAIOATAPTI  97,1) ,1=1,10)/  43. 

1 .710,1036.00,  127.90,  18.00* 

OATAIOATAPTI  98*1) .1=1 ,10)/  39. 

1 .650,1328.00,  113.33,  28.00, 

OATAIOATAPTI  99,1) ,1=1,10)/  42. 

1 .700,1189.00,  135.00,  19.00, 

OATAIOATAPTIlOO, I) ,1=1,10)/  42. 

1 .630.1380.00,  128.33,  19.00, 

OATAIOATAPTIlOl, I) ,1=1,10)/  41. 

1 .790,1101.00,  125.03,  2C.00, 

OATAIOATAPTI102, 1), 1=1,10/  42. 


360.90/ 


72,  09.63, 
332.00/ 

199.00 

, 989.30, 

10.400, 

27,  09.10, 
300.00/ 

221.00 

, 966.50, 

8,900, 

82,  89.65, 
252.00/ 

179.00 

, 991.70, 

11.500, 

00,  37.55, 
343.90/ 

116.90 

, 999.30, 

13.3C3, 

OS,  85 .13, 
247.00/ 

241.00 

, 984.20, 

9.900, 

75,  86.17, 
322. CC/ 

241. S3 

, 984. 4C, 

11.3CC  , 

67,  86.25, 
248.00/ 

236.00 

, 984.83, 

9.S0C, 

83,  91.12, 
384. CO/ 

211.20 

, 987.83, 

13.40C, 

58,  93.58, 
360.00/ 

286.03 

, 978.80, 

9.4C0, 

52,  99.68, 
393. CO/ 

322. 3J 

, 974. 4C, 

8.100, 

50,  96.47, 
262.00/ 

334.03 

, 973.10, 

9.100, 

5C,  92.33* 
320.00/ 

265. 33 

, 981.20, 

8.030, 

58,  97.65, 
359.00/ 

448*03 

, 960.30, 

11.700, 

75,130.03* 
232. CO/ 

737, ;9 

, 922.33, 

12.7CC, 

33,101.72, 

205.00/ 

1114.00 

, 886. OC, 

10.300, 

03,  95 * 68 , 
386.00/ 

267. JO 

, 981.40, 

12.4C0, 

72,  97.33, 
266*00/ 

403.90 

, 965*80, 

13.70C, 

07,  84.50* 
309.96/ 

2b5. 9 1 

, 9S1.63, 

12.200, 

03,  84.50, 
423.00/ 

294.30 

, 978.30, 

12.900, 

22,  85. 8C, 
379.00/ 

145.93 

, 995.90, 

13.100, 

32,  92.48, 
332.00/ 

28.00 

,1039.90, 

18.300, 

50,  91.17, 
369.00/ 

2 9. 32 

,1310.9C, 

19.700, 

22*  93.22, 
507.00/ 

3.00 

,1012.90, 

20.200, 

00*  90.05* 
405.30/ 

1.33 

,1013.10, 

20.200, 

50*  93.77, 
315.00/ 

77.30 

•1004.20, 

18.800, 

87*  68.32, 
215.00/ 

193. jJ 

• 989.80, 

3.8bC, 

68 * 70 * 30 * 
312.00/ 

13.00 

,1011.60, 

7.200, 

30*  76*63* 
466.00/ 

45.03 

,1007.80  , 

12.800, 

22*  71.12, 
477.00/ 

192.00 

, 990.00, 

9.300, 

33*  71.38* 
434.00/ 

5.30 

,1012.60, 

10.700, 

28*  70*C8t 
328.00/ 

13.33 

,1011.70, 

9.700, 

45*  73.25, 

357.00 

, 970.10, 

7.200, 
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1 .64^, 112S.au,  152.33,  26.00,  262.09/ 

OATA(SATAPT(103, I)  ,1=1,10)/  <»2.26,  71.80 
1 .663,1149.00,  126.00,  21.00,  334.00/ 

OATA(OATAPT(104,I),Isl,lG)/  45.07,  83.45 
1 .630,  701. Ow,  146.03,  34. uO,  213. uO/ 

OATA(OATAPT(ia5,I),I=l,iO)/  42.36,  63.06 
1 .670,  766.00,  131.00,  32.00,  204.00/ 

OATAIOATAPT(106,1I ,1=1 ,10)/  42.17,  63.50 
1 .630,  605. OC,  133.03,  33.00,  199.03/ 

OATA(0ATAPT(107,I) ,Isl  ,10)/  42.25,  62.92 
1 .670,  779.30,  125.00,  33.00,  221.00/ 

OATAtOATAPTdOa, I)  ,1  = 1,10/  43.35,  63.67 
1 .690,  756.00,  132.33,  33.30,  260.03/ 

0ATAt0ATAPT<lC9, I) ,1=1,10)/  42.95,  66,67 
1 .710,  623.00,  145.00,  36.00,  209.00/ 

OATAIOATAPTdlO.l)  ,1=1 ,10)/  47.13,  53.57 
1 .723,  721.30,  146.3.,  4G.3Q,  162.00/ 

OATAlOATAPTdll, I), 1=1,10/  42.73,  65.57 
1 .720,  772.00,  139.00,  34.00,  249.00/ 

OATA(OATAPTdl2,I),I  = l,10)/  46.55,  37.33 
1 .733,  763.03,  153.33,  26.30,  259.03/ 

0ATA(0ATAPTdl3,I)  ,1=1  ,10)/  43.22,  66.25 
1 .720,  301.00,  143.30,  36.00,  251.00/ 

0ATA(0ArAPrdl4,I),I  = l,13)/  46.48,  84.37 
1 .760,  635.00,  164.33,  33. 00,  241.33/ 

0ATA(0ArAPTdl5,I),I=l,lC)/  46.75,  92.17 
1 .690,  767.00,  135.00,  35.00,  262.00/ 

0ATA(0ATAPTdl6, I), 1 = 1,10/  46.63,  93.43 
1 .630,  652.00,  133.33,  31.00,  266.20/ 

OATA('3ATAPTdl7,I)  ,Isl,10)/  45.03,  93.25 
1 .670,  659.00,  113.03,  36.00,  204.00/ 

OATAIOATAPTdlS, I)  ,1  = 1,10/  44.02,  92.45 
1 .720,  696.00,  117.00,  42.00,  212.00/ 

0ATAI0ATAPTdl9, 1)  ,1=1,10/  45.57,  94.17 
1 .690,  662. OC,  108.03,  36.00,  237.00/ 

0ATA(0ATAPTd2G, I)  ,1  = 1,10/  32.33,  90.16 
1 .749,1249.00,  113.00,  65.00,  302.30/ 

bATA(0ATAPTd21, 1)  ,1=1,10)/  32.35,  86.70 
1 .720,1310.00,  104.00,  59.00,  427.00/ 

0ATA(0ATAPTd22, 1), 1=1,10/  32.35,  90.65 
1 .740,1257.06,  195.33,  62. CO,  421.00/ 

0ATA(0ATAPTd23, 1)  ,1=1,10)/  38.97,  92.33 
1 .660,  939.00,  107.00,  55.00,  338.00/ 

0ATA(0ATAPTd24,l)  ,1=1,10/  38.47,  92.63 
1 .670,  950.00,  115.30,  53.00,  256.03/ 

0ATA(0ATAPTd25, 1)  ,1=1,10/  39.03,  94.55 
1 .630,  940.90,  104.20,  49.00,  262. CO/ 

0ATA(0)TAPTd26,I),I«l,lC)/  39.37,  94.86 
1 .630,  865.00,  104.90,  49.00,  303.00/ 

0ATA(0ArAPTd27, 1)  ,1=1,10)/  39.75,  94.85 
1 .660,  906.00,  95.30,  56.00,  349.90/ 

OATA(OATAPTd26,I),I=l,10)/  37.16,  93.32 
1 .670,1006.30,  198.03,  59. CO,  476.00/ 

0ATAI0ArAPTd29. 1)  ,1=1,10)/  45.78,106.5  0 
1 .520,  359.00,  95.00,  29.00,  194.00/ 

OArAIOATAPTd30,I),I*l,lG)/  48.20,106.62 
1 .600,  276.00,  89.00,  27.00,  136.90/ 

0ATA(0ATAPTd3l,I)  ,1=1,10)/  47.50,111.27 
1 .530,  381.00,  100.90,  26.00,  207.00/ 

DATA(OATAPTd32,I),I*l,10)/  48.57,199.67 
1 .579,  293.00,  66.09,  22.00,  127.99/ 

OArAIOATAPTd33,I)  ,1  = 1,10)/  46.58,112.00 
1 .550,  269.00,  96.00,  34.00,  120.00/ 

0ATA(0ATAPTd34,I)  ,1=1,10)/  48.20,114.32 


301.00, 

976.90, 

6.400, 

213.00, 

967.50, 

5.6CC, 

169.00, 

990.40, 

9.940 , 

193.00, 

939.90, 

9.500, 

217.00, 

987.10, 

lO.CCO, 

235.00, 

984.80  , 

6. 200, 

239.00, 

984.30, 

6.800, 

350.00, 

970.60, 

5.900, 

256.00, 

962.30, 

8.600, 

296.00, 

988.30, 

5.900, 

191.00, 

990.10, 

8.500, 

223.00, 

966.20, 

4. 400, 

435.00, 

960.30, 

3.700, 

359.30, 

969.20, 

2.500, 

254.00, 

962.30, 

6.700, 

395.03, 

965.50  , 

6.400, 

313.00, 

975.10, 

5.400, 

94,00, 

1302.20, 

18. SCO, 

84.00, 

1002.90, 

18.100, 

71.00, 

1004.90, 

18.800, 

237.00, 

985.00, 

12.800, 

270.09, 

961.10, 

12.400, 

399.00, 

976.50, 

12.500, 

226.00, 

966.40, 

13.8C0, 

247.00, 

983.70, 

12.100, 

366.00, 

967.70, 

13.400, 

1067.00, 

887.90, 

7.900, 

696.00, 

930.40, 

5.300, 

1116.00, 

684.50, 

7.200, 

766.30, 

920.10, 

5.700, 

1167.00, 

676.60, 

6.200, 

994.00, 

904.00, 

5.400, 

( 
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801.00 


919.10 


7.400. 


» : 


1 .650.  412.00. 

0ATA(UATAPT(135 
1 .580.  354. OC. 

OATA(OATAPT (136 
1 .650.  339. JC. 

OATA(OATAPT(137 
1 .650.  595.00. 

OATA(t)ATAPT(138 
1 .643.  677. 3 L. 

0ATA(0ATAPT(139 
1 .640.  697.30. 

OATA(OATAPT(140 
1 .660.  618.00. 

0ATA(DATAPT(141 
1 .650.  505. CC« 

0AT4(0ATAPT(142 
1 .670.  767. SC. 

DATA(0ATAPT(143 
1 .580.  370.00. 

0ATA(0ATAPT(144 
1 .623.  452.30. 

0ATA(0ATAPT(145 
1 .500.  240.00. 

OATACOATAPT (146 
1 .473.  221.00. 

DATAOATAPT(147 
1 .300.  96.00. 

0ATA(0ATAPT(14a 
1 .510.  183.00. 

0ATA(0ATAPT(149 
1 .480.  215.00* 

0ATA(0ATAPT(153 
1 .680*  919.30. 

0ATA(DATAPT(151 
1 .860.1935.00. 

0ATA(0ATAPT(152 
1 .633.1053.00. 

0ATA(0ATAPT(153 
1 .650.1020.00. 

DATA(0ATAPT(154 
1 .460.  197.00. 

0ATA(DATAPT(155 
1 .520.  404.00. 

0ATA(0ATAPT(156 
1 .423.  375.30. 

0ATA(0ATAPT(157 
1 .500.  295.00. 

DATA(OATAPT(158 
1 .543.  269.00. 

0ATA(0ATAPT(159 
1 .390.  273.00. 

OATA(OATAPT(160 
1 .693.  847.30* 

OATA(OATAPT (161 
1 .730*  949.00. 

0ATA(0ATAPT(162 
1 .730.  932.30. 

DATA(0ATAPT(163 
1 .700.  917.00* 

OATA(OATAPT(164 
1 .640*1021.00* 

OATA(OATAPT (165 
1 .660.1055.00* 

0ATA(0ATAPT(166 
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.30. 

24. 

30. 

120.30/ 
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.1  = 1 

.10)/ 

46. 

43*105. 

80* 

94 
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248.00/ 
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87*114. 
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355.00/ 

.!> 
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• ii  ? t 
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191.00/ 

.11 
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.10)/ 
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OG.  96. 

CO. 

96 

.30. 
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00* 

328.00/ 

*1) 

.1  = 1 

.IG)/ 
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02.  97. 
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.33. 
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318.30/ 
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.10/ 
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75. 
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.30. 
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.10)/ 
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90.00/ 

.11 
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40. 
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358.00/ 
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67.  73. 

67, 

118 

.00. 

22. 

00. 

442.00/ 

.1) 

.1=1 

.10)/ 

40. 

75.  73. 

87, 

972.30 

. 899.93, 

6.5CC, 

561.00 

. 947.30, 

10. ICO, 

359.00 

, 973.40. 

10.6E3. 

351. SO 

, 971.50, 

11.600, 

471. JO 

, 957. 1C, 

9.1Ct , 

846. 0 3 

, 914.70, 

9.200, 

298.30 

, 977.63, 

1C.6C0, 

1206.30 

, 875.70, 

9.000. 

789. Jb 

, 923.80, 

6.3CC, 

1539.00 

, 840.20, 

7.400, 

1906. Jw 

. 803.00. 

6.700, 

659.30 

. 938.10, 

18.800, 

1342.00 

, 861.70, 

9.700, 

1311.33 

, 864.50, 

8.000, 

134. )u 

.1033.53. 

7.600, 

1939.30 

, 796.20, 

>2.800, 

2 . w 0 

.1013. uO . 

12.200. 

17.00 

,1011.20, 

12.200, 

1619.30 

, 835. 7C, 

13.800. 

1515.00 

, 844.90* 

11.500, 

1944.00 

, 801.10, 

9.400, 

1131.00 

, 889.20, 

14.700, 

1112.33 

, 888.70, 

16.200, 

1638.00 

. 834. 30 . 

14.600. 

S4. 03 

,1003.00, 

0.700* 

485.00 

, 955.30, 

7.800, 

262.00 

. 981.70. 

9.300, 

215.00 

. 987.20, 

8.400, 

43.33 

,1008.40, 

12.500, 

4.00 

,1012.80, 

11*700, 

3.33 

,1012.90, 

12.4C0, 

108 


1 .613. 1)57. JOt  12^ 
CATA(L'«TAPTil67.I) 
1 .663.  796. OC.  154 
OATAIOATAPTCieS.!) 
1 .69:.  925. CL.  167 
0ATA(0ATAPT(169.1) 
1 .7o0.1149.0C.  129 
0ATA(0ATAPT(173.I) 
1 .730.1413.::.  123 
OATA(OATAPHl71.I) 
1 .690.1385.00.  112 
0ATA(DATAPT(172.I» 
1 .723.1351.00.  lie 
OATAOATAPTdTS.H 
1 .713.1331.00.  113 
DATA(0ATAPT<174.II 
1 .743.1361.30.  119 
OATA(OATAPT(l75.1) 
1 .640.  410.00.  96 

DATA(0ATAPT(176.II 
1 .680.  498.00.  103 
OATA(OATAPT(177.I) 
1 .650.  364.00.  95 

0ATA(0ATAPT(173.I) 
1 .730.  892.00.  153 
OATAtOATAPTI179.I> 
1 .690. 1317.00*  132 
0ATA(0ATAPT(18Q.Ii 
1 .690.  869.00.  156 
0ATA(0ATAPTtl81.I) 
1 .680.  940.00.  136 
0ATA(0ATAPT(182.I) 
1 .670.  373.00.  130 
OATAtOATAPTtl83.I) 
1 .710.  855.00.  140 
0ATA(0ATAPT(184.I} 
1 .730.  830.00*  136 
0ATA(0ATAPTIie5.I) 
1 .720.  965.00*  163 
0ATA(0ArAPT(186*I) 
1 .643.  797.30*  82 

0ATA(0ATAPT(ia7.I) 
1 .640.  937.00*  90 

0ATA(0ATAPT(169*1) 
1 .813.1685.00.  199 
0ATA(0ArAPT(169.I) 
1 .560.  300.00.  91 

OATAtOATAPT (190. I> 
1 .733.1361.30*  136 
OATA(OATAPT(191.I) 
1 .620.  830*00.  146 
0ATA(0ATAPT(192.I) 
1 .653*  524.00*  102 
0ATA(0ATAPT(193*1) 
1 .450.  313.00.  100 
0ATA(0ATAPT(194*I) 
1 .723.  955.00*  153 
0ATA(0ATAPT(195.I) 
1 .710.1043.00*  150 
0ATA(0ATAPT(196*I) 
1 .673*  934.00*  133 
0ATA(0ATAPT(l97.1t 
1 .679.1079.30.  124 
0ATA(0ATAPT(198.I) 


"w 

ii^i 

tlOl/  43*e0t  77.62« 

167.30, 

993.00, 

8.8CC, 

» C 3 1 

29.00.  246.00/ 
.1:1/  43.05,  76.17. 

125. 3S, 

998.30, 

8.90C, 

.33. 

29.33,  312.03/ 
,101/  35.58,  82.58, 

652.00, 

937.50, 

13.200, 

.00. 

.1*1 

50.00,  287.00/ 
,101/  35.23*  75.52, 

2.30, 

1013.00, 

16.500, 

» 3 J « 
fUl 

45.30,  372.30/ 
*10/  35.35,  80.83, 

224.00, 

986.80, 

15.800, 

.03. 

.1*1 

42.00.  317.00/ 
,101/  36.05,  79.83, 

273,30, 

980. CC  , 

14.500. 

.33. 

.1*1 

47. &3,  337.00/ 
*10)/  35.77,  78.65, 

132.00, 

997. 5C, 

15.100. 

.03. 

.1*1 

46.00,  329.03/ 
,10)/  34.23,  77.92, 

9.00, 

1012.20, 

17.600, 

.93. 

.1*1 

46. jO,  394.00/ 
,18)/  46.83,100.60, 

502.30, 

952.70, 

5.200, 

.30* 

.1*1 

34.00,  211.00/ 
,10)/  46.87,  96.82, 

273.00, 

979.60, 

4.900, 

.0  3. 
.1=1 

34.00,  239.03/ 
,10)/  48.15,103.65, 

579.00, 

943.70, 

4.900, 

00. 

.1*1 

26.00*  187.00/ 
•10)/  41.07,  81.52, 

368.30, 

969.24, 

9.8C0, 

.33. 

.1=1 

4c.:g,  290.00/ 
,10)/  39.17,  84.50, 

232.00, 

985.60, 

12.700, 

.30. 

.1*1 

50.00,  347.00/ 
,10)/  41. 5C,  81.68, 

23^.30, 

984.70, 

9.800, 

.30. 

.1*1 

36«CGf 

tlC)/  39.96«  63.05* 

247.00, 

96 3 • 60  t 

10.800, 

.00* 

.1=1 

42.00,  248.00/ 
,10)/  39.75,  84.17, 

303.00, 

977.UU, 

11.100, 

09. 

.1*1 

41.00,  277.00/ 
,10)/  40.77,  82.52, 

395.00, 

966.20, 

10.700, 

00. 

1*1 

46.00,  205.00/ 
,10)/  41.67,  83.58, 

204. OC, 

988.60, 

9.600, 

03, 

.1*1 

4C.C0,  215.00/ 
,10/  41.08,  80.67, 

359.00, 

970.20, 

9.300, 

03, 

.1*1 

36.00,  251.00/ 
,10)/  35.47,  97.55, 

392.00, 

967.30, 

15.500, 

u3. 

.1*1 

51.00,  274.00/ 
,10)/  36.12,  95.97, 

198.00, 

989.80, 

15.70Q, 

00. 

1*1 

53.00,  478.00/ 
,10)/  46.2&,123.83, 

2.00, 

1013. :c. 

10.300, 

33, 

.1=1 

8.30,  556.00/ 
,131/  43.60,119.05, 

1265.00, 

868.90, 

7.800, 

00, 

.1*1 

14.00,  146.00/ 
,10)/  44.05,123.07, 

139.00, 

11.403, 

03, 

.1*1 

5. JO,  533.30/ 
,10)/  45.52,118.43, 

1234.00, 

871.50, 

6.500, 

00, 

1=1 

16.00,  262.00/ 
,10)/  42.33,122.87, 

396. JC, 

966.30, 

11.7C0, 

03, 

.1*1 

8.00,  323.00/ 
,10)/  45.67,118.77, 

452.00, 

959.70, 

11.300, 

00, 

1=1 

10.00,  119.00/ 
,10)/  45.53,122.67, 

6.  3u  • 

l«il2. 50  • 

11.4C0, 

00, 

.1*1 

7.00,  326.00/ 
.10)/  44.95,123.17, 

60.00, 

1006.00, 

11.300, 

03, 

.1*1 

6.00,  391.00/ 
,10)/  42.60,123.5:, 

1169.30, 

879.53, 

8.700, 

33, 

.1=1 

6.00,  612.00/ 
•10)/  40.62,  75. 5C, 

118.00, 

999.00, 

1.0*  600  V 

00, 

1*1 

33.00,  307.00/ 
*10)/  42.12,  80.08, 

223.03, 

986.23  , 

8.400, 

1 .71J.  973. OCt 

160 

.33, 

39. 

Cd, 

251. 

30/ 

0ATA(0ATAPT(199 

,1) 

*1>1 

10)/ 

40. 

20, 

76. 

93, 

i .643,  926.30, 

125 

.30, 

33. 

00, 

471. 

00/ 

OATAtOATAPTIZOD 

,11 

,I»1 

101/ 

40. 

00, 

75. 

17, 

1 . 6 6 3 , 1 3 1 4.  0 3 f 

116 

.33, 

27. 

33, 

246. 

00/ 

0ATA(0ATAPT(2Ci 

,1) 

,1*1 

10)/ 

40* 

43, 

80. 

00, 

1 .670,  920. OC, 

153 

.00* 

36. 

00, 

200. 

00/ 

0ATAC0ATAPT(£C2 

,11 

.1*1 

10)/ 

40. 

50, 

99. 

42, 

1 .673,  920. 3C, 

147 

.03, 

36. 

33, 

225. 

30/ 

OATA(OATAPT(203 

,1) 

,1*1 

10)/ 

48. 

33, 

75. 

92, 

1 .730,1392.00, 

122 

.09* 

32. 

00, 

377. 

00/ 

0ATAI0ATAPT(2C4 

.1) 

.1*1 

10)/ 

41. 

42, 

75. 

67, 

1 .603,  004.00, 

143 

.09, 

31. 

33, 

198. 

30/ 

0ATAI0ATAPT(2G5 

,1) 

,1*1 

10)/ 

41. 

27, 

77. 

05, 

1 .690,1016.00, 

144 

.00, 

34. 

00, 

427. 

00/ 

OATA(OATAPT(206 

,I> 

,1*1 

10)/ 

41. 

18* 

71. 

57, 

1 .743,1329.90, 

111 

.03, 

17. 

30, 

292. 

30/ 

OATA(OATAPT(2C7 

,1) 

,1=1 

10)/ 

41. 

83, 

71. 

42, 

1 .660,1306.00, 

125 

.00, 

2C. 

GO, 

302. 

00/ 

OATA(OATAPT(200 

.1) 

,1*1 

10)/ 

32. 

80, 

79. 

97, 

1 .749,1324.00, 

115 

.09, 

57. 

33, 

692. 

00/ 

0ATA(0ATAPT(2Q9 

,1) 

,1*1 

10)/ 

34. 

00, 

81. 

00, 

1 .720,1170.00, 

111 

.00, 

55. 

CO, 

425. 

00/ 

OATAIDATAPT(210 

,1) 

,1*1 

10)/ 

34. 

87, 

92. 

42, 

1 .690,1290.00, 

119 

.03, 

44. 

UO, 

296. 

00/ 

0ATAC0ATAPT(211 

,I» 

,1*1 

13)/ 

45. 

47, 

90. 

50, 

1 .660,  405.00, 

07 

.00, 

37. 

00, 

226. 

00/ 

0ATA(0ATAPT(212 

,11 

,1*1 

10)/ 

44. 

37, 

99. 

20* 

1 .660,  494.00, 

93 

.33, 

41. 

00, 

211. 

00/ 

DATA(0ATAPTI213 

*1) 

,1*1 

10)/ 

44. 

10,103. 

23, 

1 .500,  435.00, 

95 

.00, 

42. 

00, 

187. 

00/ 

0ATAI0ATAPT(214 

,11 

*1*1 

10)/ 

43. 

57, 

96. 

70, 

1 .660,  620.00, 

94 

.03, 

44. 

CO, 

231. 

03/ 

0ATA(0ATAPT(215 

*1) 

,1*1, 

10)/ 

36. 

58, 

02. 

20, 

1 .720,1053.00, 

134 

.00, 

46. 

00* 

247. 

00/ 

0ATAI0ATAPT(216 

,1) 

,1*1 

10)/ 

35. 

03, 

85. 

3C, 

1 .710,1319.00, 

121 

.03, 

56. 

00, 

351. 

30/ 

0ATA(nATAPTI217 

,1) 

,1*1 

10)/ 

36. 

00, 

83. 

95, 

1 .710,1173,00, 

120 

.00, 

48. 

00, 

298. 

00/ 

OATACOATAPT(210 

*11 

,1*1 

10)/ 

35. 

17, 

90. 

00, 

1 .690,1247.00, 

137 

.33, 

53. 

00, 

312. 

00/ 

DATAI0ATAPTI219 

,I> 

,1*1 

10)/ 

36. 

17, 

66  . 

83, 

1 .710,1160.00, 

119 

.00, 

56. 

00, 

354. 

00/ 

OATACOATAPTt220 

,1) 

,1*1  i 

13)/ 

36. 

03, 

94. 

20, 

1 ,710,1336.30, 

129 

.00, 

53. 

00, 

489. 

00/ 

0ATA(0ATAPT(221 

,I> 

*1*1 

IC)/ 

32. 

45, 

99. 

75, 

1 .550,  599.00, 

65 

.00, 

42. 

00, 

335. 

00/ 

DATA (OATAPT (222 

,I> 

,1*1 

10)/ 

35. 

23,101. 

83, 

1 .530,  515.30, 

68 

.30, 

48. 

00, 

273. 

00/ 

DATA (OATAPT (223 

,1) 

*I«i 

10)/ 

30. 

30, 

97. 

78, 

1 .630,  025,00, 

02 

.00, 

41. 

00, 

313. 

00/ 

0ATA(0ATAPT(224 

*1> 

,I«li 

10)/ 

25. 

90, 

97. 

50* 

1 .730,  637.00, 

72 

.00, 

24. 

00, 

409. 

03/ 

OATA(DATAPT(225 

,I> 

*1*1 

10)/ 

27. 

78, 

97. 

43, 

1 .750,  725.00, 

77 

.00, 

31. 

00, 

516. 

00/ 

0ATA(DATAPT(226 

,1) 

,1*1 

10)/ 

32. 

75, 

97. 

03, 

1 .630,  020.00, 

79 

.09, 

45. 

00, 

321. 

00/ 

* 0ATA(0ATAPT(227 

.1) 

,1*1 

10)/ 

32. 

70, 

96. 

80, 

1 .610,  070*00, 

80 

.00, 

40. 

00, 

391. 

00/ 

DATA (OATAPT (228 

*1) 

,1*1 

10)/ 

29. 

30,100. 

93, 

1 .570,  429.00, 

60 

.00, 

34. 

00* 

401. 

00/ 

OATA(OATAPT(229 

,1) 

,1*1 

10)/ 

31. 

75,106. 

50, 

1 .450,  197.00* 

45 

.00, 

36. 

00, 

170. 

00/ 

OATA(OATAPT(230 

,1) 

*1*1 

10)/ 

29. 

28, 

94. 

90* 

110 


103.00 

,1000.80, 

11.900, 

2.00 

,1013.00, 

12.6C0, 

347.30 

, 971.80, 

10.200, 

229.90 

. 985. 9C. 

11.700, 

81.00 

,1003.50, 

12.400, 

293.33 

, 979.20, 

9.70C, 

160.00 

, 993.90, 

10.200, 

34.30 

,1309.19, 

lO.ltC, 

16.00 

,1011.30, 

10.000, 

12.  JO 

,1911.80 , 

10.2CC, 

65.00 

,1005.50, 

17.500, 

292.00 

, 978.90, 

15.900, 

395.00 

, 965.50, 

6,000  , 

390. JO 

, 966.20, 

7.100, 

964.00 

, 901.40, 

S.lOO, 

432.00 

. 961.40, 

7.400, 

459.00 

, 959.30, 

13.400, 

293.00 

, 989.20, 

15.4C0, 

299.00 

, 978.00, 

15.400, 

79.39 

,1003.90  , 

16.400, 

180.00 

, 991.90, 

15.200, 

276.00 

, 980.60, 

14.300, 

544.00 

, 950.70, 

18.100, 

1099.00 

, 889.30, 

14.100, 

162.30 

, 992.00, 

20.100, 

6.33 

,1312.50, 

23.200, 

o 

o 

• 

CM 

,1011.80, 

22.200, 

169.39 

, 993.50, 

18.600, 

147.00 

, 996.00, 

18.000, 

313.00 

, 977.10, 

21.100, 

1194.30 

, 883.60, 

17.400, 

2.30 

,1013.00, 

21.000, 

i 

1 


1 .730,1072. CC,  96. OJ,  65.50,  661.00/ 

0ATA(0ATAPT(231, I) ,1=1,10)/  29.53,  95.25,  29.00,1309.30,  20.500 

1 .71,0,1224.30,  108.00,  72.  00,  366.00/ 

0ATA(0ATAPT(232, 1)  .1  = 1,10/  29.75,  95.33,  1 2.  j 0 , li;ll.  33  , 21.1CC 

1 .710,1150.30,  134.::,  72. :u,  443.00/ 

0ATA(0ATAPT(233,1) ,1=1,10)/  29.75,  95.42,  15.30,1011.50,  20.70C 

1 .720,1167.00,  103. CO,  59.00,  567.00/ 

0ATA(0ArAPr(234,I) ,1=1,10)/  33.53,101.33,  932.00,  9C1.CC,  15.4CC 

1 .55j,  463.00,  60.^:,  45. uG,  225.00/ 

0ATA(0ATAPT(235, I) ,1=1,10/  32, CO, 102. 15,  869.00,  915.00,  17.700 

1 .530,  343.30,  51.00,  36.00,  196.00/ 

0ATA(0ATAPTI236, I) ,1=1,13)/  27.33,  97.03,  5.30,1012.70,  20.300 

1 .730,1399.31,  105.03,  65. CO,  475.30/ 

OATA(3ATAPT(237.I),I=1,10)/  31.47,103.47,  580. oO,  946.80,  19.00C 

1 .540,  445.00,  56.09,  36.00,  234.00/ 

0ATAI0ATAPTI239, 1)  ,1  = 1,10/  29.42,  93. 5C,  24*.  30,  935.40,  20.4CC 

1 .63C,  700. 3G,  80.vi0.  36. jO,  401.00/ 

0ATA(0ATAPTI239, I) ,1=1,10)/  28.82,  97.02,  32.00,1009.50,  21.200 

1 .710,  371.00,  86.09,  48.00,  369.00/ 

OATA(OATAPT(240«I)«I=1.10)/  31.55.  97.17.  153.00.  995.30.  19.5C0 

1 .630,  794.00,  77.90,  46.00,  381.00/ 

0ATA(0ATAPT(241, 1)  ,1=1,10/  33.92*  98. 5G,  303.00,  977.90  , 17.800 

1 .590,  691.00*  69.00.  49.00,  306.00/ 

0ATA(0ATAPT(242, I) .1=1,10)/  32. IG,  96.93,  153?.]:,  842. CO.  9.6CG 
1 *433.  213. CC,  63. 9j.  32*03.  66*00/ 

0ATA(0ATAPT(243,I)  ,1=1  ,10/  40.75,111.92,  1266.30.  866.00,  10.600 
1 .523,  385.00,  83.00,  35.00,  124.00/ 

0ATA(0ATAPT(244,I) .1=1 ,10)/  40.75,114.33,  1291. OO,  667.80,  11.2C0 
1 .440.  124.00,  48. 9J,  29. CG,  76.30/ 

0ATA(0ATAPT(245. I) ,1=1,10)/  44.47,  73.23,  131.00,1000.90,  6.900 

1 .660,  827.00,  152.00,  25.00,  293.00/ 

0ATA(DATAPT(246*1) ,1=1,10)/  37.40,  79.15,  279. :0,  933.10,  13.500 

1 .670.  972.00,  120.93.  41.00,  239.00/ 

DATAI0ATAPTI247.I) ,Isl.lG)/  36.90,  76.30,  7.00,1012.40,  15.200 

1 .700,1135.00,  116.03,  37.00,  349.00/ 

0ATA(0ATAPT(248. I) ,1=1,10)/  37.57,  77.45,  50.w3,1307.30 • 14.300 

1 .730,1082.30,  114.00.  37.30,  479.30/ 

0ATA(0ATAPTI249. 1)  ,1=1,10/  37.25,  79.97,  350.00,  971.90,  13.300 

1 .640,  991.00,  121.03,  38.00,  232.00/ 

OATA(OATAPT<250, I) .1=1,10)/  47.05,122.83,  59. 3C ,1006. 10 . 10. ICC 

1 .770,1239.00,  163. CO,  5. CO,  534.00/ 

OATA(DATAPT(251,I),I=1,10)/  47.95,124.55,  55.00,1006.50,  9.300 

1 .820,2667.00,  216.00,  8.00,  690.00/ 

0ATA(0ATAPTI252,I),I=l,ia)/  47.58,122.33,  6.00,1012.50,  11.400 

1 .720,  906.00,  152.03,  6.30,  278.33/ 

0ATAI0ATAPTI2S3.I) ,1=1,10)/  47.27,122.50,  122.00,  998.50,  10.600 

1 .720,  985.00,  161.00.  8.00,  328.00/ 

0ATA(0ATAPT(254, I) ,1=1,10)/  47.67,117.42,  713.00,926.80,  8.500 

1 .600,  442.00,  115.30,  11.30,  145.00/ 

0ATA(0ATAPT(255,I),Isl,lC)/  47.27,121.37,  1236.00,  873.40,  4.000 

1 .810,2313.60,  206.03,  7.00,  773.00/ 

0ATA(0ATAPT(2S6, I) .1=1,10)/  46.38,124.73,  31.03,1009.50,  9.600 

1 .860,1973.00,  197.00,  5.00,  573.00/ 

OArA(OATAPT(257,I),Isl,10)/  46.08,118.30,  289.00,  978.80,  12.300 

1 .550,  407.00,  106.00,  11.00,  149.00/ 

OATA(OATAPT(2S8,I),I=1,10)/  46.62,123.53,  321.30,  974.80,  9. 900 

1 .593,  233*00,  68.03,  7. 30,  106.03/ 

0ATA(0ATAPT(259, 1)  .1=1,10/  18.48,  66.13,  4.30,1012.80,  25.900 

1 .740,1502.00,  203. CO,  40. GO,  383.00/ 

OATA(OATAPT/260. I) ,1*1.10)/  17. 4S,  83.93,  9.30,1012.20,  27.200 

1 .740.1311.00,  153.30.  4C.G0,  801.00/ 

OATA(OATAPT(261,I),I=1,10)/  37.77,  81.23,  763.00,  924.30,  10.500 

1 .740,1083.00,  164.00,  46.00,  233.00/ 

0ATAI0ATAPTI262, I) .1=1,10)/  38.38,  81.67,  286.00.  979.20.  12.900 
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( 


1 . 703*1035. 0C« 

149 

.00* 

43.30* 

344.30/ 

0ATA(0AT«PT(263 

*1) 

.1*1 

10)/  38. 

>93.  79.88. 

594. 

00 

9<*3. 

>20 

9. 

6C0. 

1 .7<»o,ia9s.oa* 

167 

.00* 

44.00. 

236.00/ 

0ATA(0ATAPT(264 

*I» 

*1*1 

13)/  38. 

)409  629439 

252. 

30 

983. 

>20 

12. 

900* 

1 .72ij,  988. 0C« 

140 

.03* 

45.00. 

235.00/ 

0ATA(0ATAPT(2e5 

*11 

.1*1 

10)/  39. 

>28.  81.55. 

187. 

00 

990 

>90 

12. 

600  * 

1 .700*  976.00* 

142 

*00* 

44.30. 

306.90/ 

0ATA(0ATAPT(266 

*11 

*1*1 

10)/  44 

)539  66*069 

236. 

00 

987. 

80 

6. 

500* 

1 .700*  686. CC* 

121 

• 039 

35.30. 

230.99/ 

DATA(0ATAPT(267 

*I> 

*1  = 1 

10)/  43. 

9 60  9 91 *079 

198. 

09 

989, 

20 

OCO* 

1 .700*  739.00* 

111 

.00* 

41.00. 

267.00/ 

OArA(OATAPT(268 

*1) 

*1*1 

10)/  43. 

079  69*379 

262. 

03 

981. 

4C 

7. 

2C0* 

1 .700*  768.00* 

117 

.00* 

41.30. 

278.90/ 

0ATA(0ATAPT(269 

*1) 

*1*1 

10)/  43 

7 0 5 9 67 *939 

235. 

00 

988. 

>30 

7, 

600* 

X aTOOv  739«00f 

123 

.00* 

36 • 0 0 9 

251.00/ 

OATA(OATAPTC270 

*1) 

*1*1 

10)/  42, 

83*106.33. 

1627, 

00 

831. 

20 

7. 

400* 

1 .530*  285.00* 

92 

.93* 

• (J  0 9 

142.90/ 

0ATA(0ATAPTI271 

*11 

.1*1 

10)/  41. 

139 1 04  *83  9 

1867. 

00 

807, 

>50 

7. 

700* 

1 .470*  372.00* 

97 

.90* 

50.00. 

136.00/ 

OATA(OATAPT(272 

*1) 

*1*1 

10)/  42. 

82*109.73. 

1696. 

03 

824. 

GO 

6. 

9C0* 

1 .500*  352.30* 

72 

.03* 

32.00, 

175.93/ 

0ATA(0ATAPT(273 

*11 

*1=1 

ID/  44, 

>89.106.95* 

1208. 

30 

874, 

60 

7, 

200* 

1 .550*  410.00. 

108 

.00* 

35.00, 

242.00/ 

0ATA(0ATAPT(274 

*11 

*1*1 

10)/  38. 

67*  90.25* 

163. 

iZ 

993. 

76 

13. 

300* 

1 .690*  912.00* 

139 

.DO* 

44. 30 1 

231.90/ 

0ATA(0ATAPT(275 

*1) 

*1*1 

10)/  39. 

38,  74.45* 

20. 

GO 

1010. 

83 

12. 

100* 

1 .700*1155.00* 

113 

.00* 

26.00. 

332.00/ 

0ATA(0ATAPTI276 

*1) 

*1*1 

10)/  47. 

08*122.57, 

59. 

49 

1006. 

10 

15. 

OCO* 

1 *7609  8d6«509 

165 

.33* 

4.60. 

584.00/ 

0ATA(0ATAPT(277 

*1) 

*1*1 

10)/  39. 

.47,123.75* 

229. 

20 

985. 

SO 

11. 

700* 

1 .810*  965.20*. 

89 

.00* 

2.00. 

400.00/ 

0ATA(0ATAPTI278 

*1) 

*1*1 

10)/  37. 

80,122.47* 

-25. 

63 

1016, 

30 

15. 

000* 

1 .760*  442.00* 

68 

.03* 

1«  80  9 

320.00/ 

0ATA(0ATAPT<279 

*1) 

.1*1 

10)/  35, 

82,120.73* 

173. 

4Q 

992, 

70 

15. 

300* 

1 .640*  281.90. 

46 

.00* 

1.70* 

250.00/ 

OATAIOATAPTI280 

*1) 

*1*1 

10)/  36. 

>68*121.77* 

43. 

8C 

1020, 

01 

12. 

500* 

1 .770*  274.30* 

59 

.00* 

2.73. 

291.00/ 

DATA(0ATAPT(281 

*1) 

.1*1 

10)/  36, 

>00,121.23* 

292. 

60 

978. 

>80 

15. 

3C0* 

1 .640*  281.90* 

50 

.00* 

i.ro* 

270.00/ 

OATA(OATAPT(282 

*1> 

♦ 1*1 

10)/  33. 

>02,118.58. 

41. 

13 

1008. 

30 

14. 

700, 

1 .790*  203.20* 

42 

• 039 

1.  00. 

190.00/ 

DATA (OATAPT (283 

*1) 

*1*1 

10)/  31, 

>55,110.39* 

1425. 

50 

856, 

.70 

16. 

900* 

1 .410*  345.40* 

52 

.00* 

58.90. 

201.00/ 

0ATA(0ATAPT(284 

*1) 

*1*1 

10)/  33. 

47.111.97* 

381. 

33 

969. 

.50 

21. 

700* 

1 .430*  193.00* 

34 

.00* 

26.90. 

141.00/ 

0ATA(0ATAPT(285 

«I) 

.1*1 

10)/  32. 

>87,114.40* 

121. 

90 

999. 

>10 

22. 

500* 

1 .440*  88.90* 

15 

.00* 

10.00. 

68.00/ 

OATA(0ATAPT(206 

«I) 

*1*1 

10)/  35, 

.28*116.62* 

694. 

63 

934. 

10 

18. 

300* 

X *3609  63*509 

30 

.03* 

2.  80. 

130.00/ 

0ATA(0ATAPT(287 

«I) 

*1*1 

10)/  37, 

>83,121.28* 

-22. 

30 

1015. 

.90 

15. 

800* 

1 .640*  340.40* 

58 

.00* 

2.80. 

287.00/ 

OATA(OATAPT(280 

*1) 

*1*1 

10)/  38. 

52*121.40, 

-13. 

W 

1014, 

.80 

15. 

600* 

1 .660*  429.30* 

58 

.00* 

5.40. 

321.90/ 

OATA(OATAPT(289 

*1) 

.1*1 

10)/  40, 

>27.120.15, 

1139. 

30 

878. 

>00 

10. 

300* 

1 .530*  180.30* 

77 

.00* 

14.00. 

210.00/ 

0ATA(0ATAPT(29Q 

.1*1 

101/  40. 

18.112.92, 

1319. 

30 

865. 

70 

11. 

100* 

1 .590*  160.00* 

88 

.00* 

16.70. 

124.00/ 

0ATA(DATAPT(291 

.1*1 

10)/  38. 

>75.104.78, 

1758. 

70 

819, 

30 

9. 

400* 

1 .540*  368.30* 

86 

.00* 

51.20. 

203.00/ 

0ATA(0ATAPT(292 

«II 

.1*1 

10)/  43, 

17.103.83* 

1134. 

00 

866. 

60 

9. 

200* 

1 .610*  426.7ii* 

91 

• 309 

44.30* 

170.00/ 

0ATA(0ATAPT(293 

«II 

.1*1 

10)/  39. 

>05,  96.75, 

294. 

10 

978. 

20 

12. 

200* 

1 .690*  784.90* 

96 

.00* 

55.30. 

350.00/ 

0ATA(0ATAPT(294 

*1) 

»1*11 

10)/  39. 

37.  94.90* 

233, 

00 

988. 

90 

12. 

200* 

112 


4 


■1 

1 


1 .71J,  <)S6.30t  99.}3«  57.60*  282.30/ 

DATa(CATAPT(295,I) .IsI.lOl/  <»6.08»  94.35*  322.80.  974.09*  5.600* 

1 .713*  688.30*  109.00.  33.20*  250.00/ 

OATA(OATAPTI296,1)*I=1*10)/  37.73*  92.12*  317.63*  975.60*  13.100* 

1 *696*1313.90*  11;>*3C*  56*73*  350.03/ 

0ATA(0ATAPT(297*I) *Isl .10)/  41.37*  96.33*  296.30*  977.80*  10.600* 

1 .690*  7C6.10*  94.00*  47.83*  300.00/ 

0ATA{0ATAPT(298*1)  ,1  = 1,10/  34*63,  98.38,  236.2:*  973*93*  16.4C5* 

1 *64j*  805*20*  74*33*  44*40*  274*00/ 

OATA(OaTAPT(299*I> *1=1 ,13)/  37.92*  85.97*  198.40,  990.80*  13.600* 

1 .710*1130.30*  125.00,  46.30*  379.00/ 

OATA(uATAPT(3.0*I>  *1=1*10/  44.05*  75.72*  173,3.!,  991.50,  7.2tC* 

1 .75'J,  751,80*  165.03,  19.10,  290. C3/ 

CATA(0ATAPT<3C1*I)  *1  = 1*10/  42.72*  76.68*  11-.. 90*  999.30,  8.900* 

1 .710*1013.50*  154.03*  29.30*  295.00/ 

OATA(OATAPT(3C2. I) ,1=1,10)/  42.22*  67.92*  183.43,  991.40*  9.4CC* 

1 .720,  835.70*  125.33*  35.60*  291.33/ 

DATA(0ATAPT(3C3*I)  *1  = 1,10/  43.95*  90.73*  223.10*  986.20*  8.100* 

1 .710*  749.30*  111.33*  44.10*  267.00/ 

DATA(OATAPT(304*I) *1=1*10)/  34.67*  36.66*  167.30*  993.40*  16.100, 

1 .693*1155.70*  122.33,  53.23*  375.33/ 

0ATA(0ATAPT(3C5, I) *1=1*10/  34.83*  92.30*  115,53*  999.50*  16.400* 

1 .680*1277.60*  104.33*  56.70*  367.00/ 

OATA(OATAPT(306*I)*I=1.1C)/  36.67,  87.50*  227.80,  986.20,  14.200* 

1 .713,1196.30*  116*00*  5:. 90,  350.33/ 

OATA(OATAPT(307, I) ,1=1,10)/  31.03*  93.18*  66.90*1005.10*  19.200* 

1 *720*1328.40*  99*30,  61.60*  360.00/ 

0ATA(0ATAPT(3C8, I) *1=1*10)/  31.07*  97.83*  285.30,  980.10,  20.030* 

1 .633*  678.20*  75.30*  34.23,  330.00/ 

CATAICATAPI (349*1) *1=1*10)/  31.13*  97.72*  256.90*  983.30*  18.900* 

1 .650*  698.50*  75.00.  39.10,  330.00/ 

OATA(OATAPT(310*I)*I=1*13)/  29.43*  98.38*  186.50*  991.50*  20.600, 

1 .660*  675. 6C*  83.00*  31.83*  430.03/ 

0ATA(0ATAPT(311*I) *1=1*10)/  33.63*  95.45*  135.90*  997.20*  18.100* 

1 .650,  934.70*  90.30*  49.40*  395.00/ 

0ATA(0ATAPT(312*I) *1=1*10)/  31.27*  65.72*  58.63*1036.90.  19.2CC, 

1 .720*1351.30*  113.3],  68.60*  395.33/ 

0ATA(0ATAPT(313*I) *1=1*10)/  31.35*  85.75*  34.10*1009.20*  19.200, 

1 .720*1351.30*  112.00*  68.60*  450.00/ 

0ATA(0ATAPT(314,I)*I  = 1*13)/  30.53*  87.2;.*  •3.43*1313.70*  20.300* 

1 .733*1358.94*  116.30*  63.30*  4:7.00/ 

0ATA(0ATAPT(315*I) *1=1*13)/  32.35*  85.03*  31.73*1039.50*  18.600* 

1 .720*1071.90*  112.03*  54.50*  336.00/ 

OATA(OATAPT(316*I)*I=1*10)/  31.86*  81.57*  •26.53*1016.40*  18.900* 

1 .743*1247.14*  112.3],  65*43*  511*00/ 

DATA(0ArAPT(3i7*I) *1=1*10)/  33.62*  84.33*  244.40*  984.50*  16.400* 

1 .693*1234.40*  117.03,  50.00*  399*03/ 

OATA(OATAPT(31S*I)«l*l*13)/  33.92*  80.83*  33.80*1009.20*  18.100* 

1 .680*1392.20*  111.33*  48.80,  425.33/ 

0ATA(DATAPT(319, I) *1=1*10)/  39.08*  76.75,  4.00*1012*80*  12*800* 

1 .690*1117.60,  114.30*  26.50*  450.00/ 

OATA(OATAPT(320*I)*I*1*10)/  39.47,  76.17*  •14.30*1014.90*  12.500* 

1 .740*1313.50*  115.33*  33.50*  466.39/ 

OATA(OATAPT(321*I)*I>1*10)/  39.30*  76.28*  •22.30*1016.00*  12.500, 

1 .740*1913.50*  113,00*  3C.50*  466.00/ 

OArA(OATAPT(322*I)*I=l*10)/  35.13,  79«93«  31.13*1909.50.  16.100* 

1 .700*1269.20*  113.33*  45.80,  366.09/ 

0ATA(0ATAPT(323,I) *1=1*10)/  37.07,  77.95*  93.90*1002.00*  14.400* 

1 .710*1137.90*  120.90*  38.60*  300.00/ 

OATA(OArAPT(324*I)  ,1=1*10  / 37.13  * 76.62*  •35.13*1017*50*  14.700* 

1 .680*1987.10*  115.30*  35.46*  4.0.90/ 

0ATA(0ArAPT(325*I), 1=1*10/  38.72*  77.18*  -13.40*1014.50*  12.500* 

1 .790*  929.60*  114.30*  30.60*  462.00/ 

0ATA(0ATAPT(326,I)*Isl,lO/  37.30*  76.63*  -27.19*1016.50*  14.700* 


I 


113 


1 .633.lJA7.lb,  114.30,  35.40,  479.00/ 

.■|  DATA(CATAPT(327, 1)  ,1  = 1,10)/  42.57,  71.60, 

1 .670,  937.30,  129. CO,  22.50,  334.00/ 
0ATA(aATAPT<32S, I)  .1=1,10/  40. 7j,  73.36, 
1 .650,1242.10,  121. Oa,  31.00,  442.00/ 
DATA(OATAPT  (329,11  ,1=1,10/  40.43,  76.57, 
1 .650,  929.6b,  130.03,  33.00,  471.00/ 

OAT A (OAT APT (330, II ,1=1,10)/  61.17,150.00, 
1 .710,  374.0b,  113.0),  l.CO,  150.00/ 
OATAOATAPT  (331,1)  ,1=1,10)/  61.17,149.63, 
1 .710,  374.00,  113.30,  1.00,  136.00/ 

OATA(OATAPT (332, I) ,1=1,10)/  52.03,131.60, 
1 .770,2903.00,  224.00,  2.03,  686.03/ 

DATA (OATAPT (333,1) ,1=1,10)/  71.27,156.83, 
1 .790,  124. OC,  75.03,  .25,  71.00/ 

OATA(OATAPT(334,I),I=1,10)/  70.12,143.67, 
1 .793,  179.00,  91.3),  .25,  125.00/ 

DATA (OATAPT (335, I) , 1=1 , 1C ) / 60.82,161.82, 
1 .790,  402.00,  135.03,  2,00,  148.00/ 

OAT  A (OATAPT (336, 1) ,1=1,10)/  66.88,151.95, 
1 .670,  363.00,  103.03,  5.00,  150.00/ 

OAT  A (OATAPT  (337, 1)  ,1=1,10/  64.17,145.92, 
1 .710,  291.00,  93.00,  3.00,  157.00/ 

OATA (OATAPT (338, I) ,1=1,10)/  55.17,162.78, 
1 .863,  844.00,  211.33,  .25,  253.30/ 

0ATA(0ATAPT(339,I) ,1=1,10)/  64.83,147.83, 
1 .660,  285.00,  102.00,  5.00,  157.00/ 

OAT A (OAT APT (340,1) ,1=1,10)/  62.25,145.50, 
1 .670,  282.00,  88.00,  5.30,  110.00/ 

OATA (OATAPT (341, I) ,1=1,10)/  59,67,151.62, 
1 .760,  586.00,  141.30,  .25,  218.30/ 

0ATA(0ATAPT(342,I) ,1=1,10)/  59.73,154.92, 
1 .750,  586.00,  137.33,  .25,  280.80/ 

0ATA(0ATAPT(343,I) ,1=1,10)/  58.33,134.33, 
1 .790,1389.00,  220.00,  .25,  387.00/ 

OATA (OATAPT (344,1) ,1=1,10)/  58.67,156.67, 
1 .733,  502.00,  150.00,  1.30,  185.00/ 

0ATA(0ATAPT(345,I) ,1=1,10)/  57.82,152.50, 
1 .800,1440.00,  166.30,  .25,  332.03/ 

OATA (OATAPT (346, I) ,1=1,10)/  66.65,162.67, 
1 .770,  223.00,  108.00,  .25,  132.00/ 

DATA(0ATAPT(347,I) ,1=1,10)/  62.97,155.67, 
1 .700,  425.00,  133.00,  7.00,  159.00/ 

, OATA(OATAPT(348,I),I=1,10)/  64.53,165.50, 

I 1 .740,  418.00,  125.33,  .25,  199.00/ 

OATA(OATAPT(349,I),I=1,10)/  57.15,170.30, 
' 1 .900,  623.00,  205.00,  .25,  237.00/ 

OAT A (OATAPT (350, I), 1=1, 10)/  52.75,174.00, 
1 .880,  716.00,  212.03,  .25,  221.00/ 

OATA (OATAPT (351,1) ,1=1,10)/  63.32,149.32, 
1 .720,  510.00,  138.00,  5.00,  171.00/ 

OATA (OATAPT (352,1) ,1=1,10)/  62.33,153.15, 
1 .710,  727.00,  131.03,  4.U0,  393.00/ 

OATA (OATAPT (353, I) ,1=1,10)/  63.87,163.83, 
( 1 .720,  360.00,  105.00,  2.00,  205.00/ 

i OATA(OATAPT(354,I),I=1,10)/  61.12,146.28, 

1 .720,1506.00,  165.03,  2.00,  328.00/ 

1 0ATA(0ATAPT(355,1),I=1,1Q)/  59.48,139.82, 

1 .820,  824.00,  230.00,  2.00,1115.00/ 

4 0ATA(0ATAPT(356,I),I=l,lQ)/  19.70,155.07, 

1 .780,3393.00,  282. CO,  9.00,1291.00/ 
OATA(OATAPT(357,I),I=1,10)/  21.32,157.03, 
1 .690,  582.00,  102.00,  8.00,  528.00/ 

OATA(OATAPT (358,1) ,1=1,10)/  20.93,156.48, 


56.40 

-16.20 

112.20 

26.30 

35.00 
34.  )G 

9.00 
12.  )J 

38.00 

196.00 

386.00 
29. )C 

133.00 
479. OC 

19. )a 
4). 33 

•4.  00 

15.03 

4.00 

3.30 

105.00 
4.03 

7.30 

37.00 
731.30 
105.00 

5.00 

7.00 

9.00 

8.00 
2.00 

15.00 


1006.30 
1015.20 

999.70 

101C.30 

>1008.90 

1039.10 

1012.10 

1311.70 
>1008.40 

988.20 
965.10 
1009. 6C 
996.30 
953.80 

1010.90 
1006.13 
1012.80 

1311.40 
1012.80 

1012.90 
999.90 

1312.70 

1012.40 
1008.60 

923.60 

1003.10 
1012.60 
1012.40 

1012.10 

1012.30 
1013.00 
1311.50 


8.600 , 
lO.bOD, 
11.900, 
1 . 8 C 0 , 
1.7C0, 
7. 60 C , 
-12.600, 
-12.200, 
-1.800, 
-5.900, 
-2.500, 
3.3CC  , 
-3.500, 
-2.900, 

2.500, 
-.100, 
4.600, 

.700  , 

4.800, 
-6.200, 
-3.800, 
-3.600, 

1.400, 

3. 500, 
-3.600, 

.400, 

-3.100, 

1.200, 

3.800, 

23.000, 
24.800, 

24.000, 
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•74Jt  466«00t  95 

OAiaiDATAPT  <359.I) 
.760,1122.30,  231 
END 


INDEX  FOR  PROGRAM  PRED77 


ROUTINE 
PRED  77 

deltus 

PARAM 

MODRH 

PIT 

VARNCE 

CMPLXN 

CRANE 

SFCG 

PROMO 

WATER 

OXYGEN 

ATCOS 

RAINRT 

TOPOXY 

RATTCO 

REFRAC 

ERF 

ERFCI 

TRUNCN 

FARM 

FREQ 

ESUBS 

EXTERP 

RSLMDl 

RSLMD2 

GAMMA 

TERP 

TABLUS 

TRIPART 

CLSPT 

SORT 

IDBVIP 

IDCLDP 

IDLCTN 

IDPDRV 

IDPTIP 

IDIANG 

IDXCHG 

BLOCK  DATA  RMSVAR 
BLOCK  DATA  PERCNT 
BLOCK  DATA  TABLES 


APPENDIX  C 

SAMPLE  INPUT  AND  OUTPUT  FOR  PROGRAM  PRED77 


The  data  for  program  PRED77  Is  read  in  on  three  separate 
data  cards,  as  discussed  In  the  program  listing  in  Appendix  A. 
Seunple  data  input  cards  (with  no  optional  data)  for  Starkville, 
Mississippi,  are  shown  in  this  appendix,  appearing  in  the 
order  of  their  reading.  The  subsequent  output  printout  from 
program  PRED77  for  this  seunple  input  is  also  shown. 


STARK'VILl.Ei  HIS-SIKIPPI  DftTA  TtST 


1-80 


STATID 


8A10 


Station  identification 


5 


Il  1 1 « I • 

llllil 

iiiiiiii 

1 1 1 « 1 • 

1 1 1 a II  tt  « II 

mill 

mum 

iiiitiii 

llllil 

mill 

iiiiiiit 

444444 

44444444 

llllil 

1 I 1 ■ II  It  n M 

llllil 

iSiliiii 

mill 

II4III44 

llllil 

1 1 1 a II  If  11 N 

mm 

llllil 

•I4I4II4 

llllil 

1 1 1 « II  It  a M 

llllil 

iiiiiiii 

1 1 1 1 1 1 1 1 1 1 n I n 1 1 1 1 1 1 ] 1 1 1 1 1 n 1 11 1 1 1 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 n 1 1 1 
itiitintitiiiiiittiiiiiittiiiiinttiittiiitiiiiiiimii 

auaaanaaaaBnaaai(aaMaB»aaa(t«««««<i«aauaaHaaiiaaa«aa«aafi«aNn 

itiiinniiiiiniiniiiniiiiiintiinniintiiiniinit 

44«444444444444444(44444«444(444444«444444444<4«44444444 

■ u*«a!iaaiiasii>>ii»aa»ii«uaaa4iaaiia«<iaaa»guHi>aHiiaii)iaa«siitiaa«ii 
iiiiiiSIIStiiiiSiSiiiSiiiiiiSiSiSiiSiiSiiitiiiiiliiiiiSS 

IIIIIII4IIIIIIIIIIII4II4IIIII4II4I4I4III4I4IIIIIIII4II4I 

aiiaaanaaaaattaaaaaaaaanaaaiianaaauaaaauaMaaHaaaaBaneaHaaaii 

)MnMiiiin;nniiiinnnnninninnininnnn)> 

IIIII4I44III4IIIIII4IIIII44II44IIII4I444I4I4I444I44444II 

aitaaaitanMaaiianaitaaaaanaaaiiunuaaaaaaiiBuaaauaaaaauaaaiiaaan 

tiiiiiiifiiMiiiiiiiniiiiiiiiininiiiiiiiiiiiiiiiinii 


IMIIIIM 

aaaaaaaaa 

1 1 I I I I I I I 

iiiniiii 

aaaaanaaa 

lllilllil 

444444444 

BiiHaa.'iaaa 


4II444IS 

aanaiianal 

jinniil 

Il4ltl4l| 

a ■«  a a 1)  a a I 

lllilllil 


COLUMNS 

1-3 

11-20 

21-30 

31-40 

41-50  ' 

51-60 

61-70 

71-80 


FORMAT  DESCRIPTION  OF  INPUT  DATA 

12  Numerical  rone  identifier  (Figure  1) 

FlO.x  Mean  surface  pressure  in  millibars* 

FlO.x  Mean  surface  relative  humidity,  decimal  fraction* 
FlO.x  Mean  surface  temperature  in  Celsius* 

FlO.x  Mean  annual  precipitation  in  millimeters* 

FlO.x  Mean  annual  precipitation  days* 

FlO.x  Mean  annual  thunderstorm  days* 

FlO.x  Greatest  30-yr  monthly  precipitation  (asn)* 


*Speciflcatlon  of  these  data  is  optional  (see  Section  5) . 


STMK«Iil.e«  NlSSIKItX^I  0*T«  T«*v 
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THC  NFTHOD  OT  fl3«$7S  CT  AL*  119731  IS  USCOc 


